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Quattro milioni di dischetti ODP venduti 
in Italia dal 1978 fanno del dischetto ODP 
un best seller delTinformatica. Un suc¬ 
cesso determinato dall’alta affidabilità 
del dischetto ODP, risultato della tecno¬ 
logia edella ricerca più avanzata. Per que¬ 
sto scegli un best seller, scegli ODP. ■ 
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Macprove 

Grafici a colonna, grafici a torta, grafici a linee... Con questo 
programma, facilissimo da usare perché tutto in punta di mouse, è 
possibile tradurre aride sequenze di numeri in affascinanti immagini 
che... 


Disegnare con Macintosh 

Comanclo per comando, disegnate insieme con uno dei maggiori e più 
creativi esperti del mondo, un soggetto complesso in apparenza (e 
anche in realtà!), ma che diventa facile se realizzato con Mac. 


Inchiesta lettori 

Un questionario per conoscere meglio i gusti e le esigenze dei lettori di 
Applicando, che diventerà un appuntamento annuale allo scopo di fare 
un giornale sempre più in sintonia con chi lo legge. Con preghiera di 
compilarlo e di inviarcelo... 


Autopiù 

Con questo programma, per meccanico avrete un computer, che vi 
ricorderà, alla scadenza, tutte le operazioni di ordinaria e straordinaria 
manutenzione. Per farvi risparmiare e perché il bene automobile duri a 
lungo, in perfetta efficienza. 


Instant poster 

Volete trasformare una parola, una frase, un disegno, un grafico, in un 
poster gigante, in uno striscione da appendere al muro? Facilissimo, 
basta... 


Golf 

C’è un percorso di golf, in qualche parte del mondo, che vi piace in modo 
particolare? Con questo programma potete ricrearlo sull’Apple, 
memorizzarlo su dischetto e giocarci tutte le volte che vorrete con i 
vostri amici 

Macnews 

Finalmente diventa più facile procurarsi in Italia, e a volte in italiano, 
stupendi programmi per Macintosh. Eccovi l’hit-parade del mese. 


AppleWorks e VisiCalc 

Continua con questo numero il corso pratico per imparare l’uso di 
AppleWorks e VisiCalc. E mentre imparate, questa volta potete 
costruire un utilissimo modello per compilare una nota spese in tre 
minuti. 


Bambini 

Un programma per imparare a contare in età prescolastica, un altro per 
ripassare, divertendosi, le tabelline e, infine, un terzo per migliorare 
l’ortografia. Tutti scritti da esperti di didattica. 

Speciale Appliscuola 

La stima dei frutteti, nel campo dell’estimo, riveste particolare 
importanza, perché la sua struttura complessa e articolata si presta 
all’applicazione di quasi tutte le formule di matematica finanziaria. Con 
questo programma... 
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Tutti i diritti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati di programmi, fo¬ 
tografie ecc., sono riservati a termini 
di legge. I programmi pubblicati su 
Applicando possono essere utilizzati 
per scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfruttamenti 
e utilizzazioni commerciali. I mano¬ 
scritti, i disegni, le foto anche se non 
pubblicati, non si restituiscono. 
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3, Milano. ® Copyright 1985 by Editro¬ 
nica srl - Registrazione Tribunale di 
Milanon.24del 15.1.1983-Pubblicità 
inferiore al 70% 



Due anni fa, proprio in questi giorni, 
nasceua in redazione il primo numero di 
Applicando. Ricordo quel perìodo con gronde 
passione, nella duplice accezione del 
termine: amore e sofferenza. Amore per 
questo bambino di carta che comincioua a 
prendere forma; sofferenza per la fatica del 
lauoro che si protraeua spesso e volentieri 
fino a tarda notte. 

Ci sembrava di essere dei pionieri, 
abbandonati da tutti. Perché non fare un 
giornale di moda o di motociclette? Più 
redditizio, forse. Sicuramente più focile. E noi 
invece testardi, a renderci pratici di queste 
macchine che sulle prime sembrono non 
ripagare tutti gli sforzi che uno ci mette. 

Una battaglio che oggi possiamo dire di 
avere vinto. E, speriamo, tante battaglie che 
abbiamo fatto vincere anche a chi ci ho 
seguito fin qui. 

In questi due anni, Applicando ha fatto 
sentire sempre più la sua voce, e la sua 
diffusione ci ho ripagato di quelle prime 
fatiche. Ma non vogliamo adagiarci sugli 
allori. Fare Applicando, tutti i mesi, è ancora 
per noi una passione. E l'aiuto dei lettori 
assume un'importanza fondamentale nel 
portare a termine questo compito. Ecco 
perché, in questo numero, troverete un 
questionario, che diventerà un appuntamento 
fisso annuale e ci servirà a conoscere meglio 
i vostri gusti e le vostre esigenze. 
Compilatelo e speditelo: per primi sarete voi 
a trarne vantaggio. Noi lo terremo in gronde 
considerazione. 



UNIONE STAMPA 
PERIODICA ITALIANA 
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Addio anni 
di piombo 

Eh sì! L’era del fosforo è 
giunta ormai anche dove 
aveva sempre regnato il fa¬ 
scinosissimo piombo; e ha 
fatto sparire quei cassetti 
grandissimi e piatti, colmi di 
letterine grigie, pesanti e 
meticolosamente ordinate 
che mani pazienti sapevano 
combinare tra loro per pro¬ 
durre l’eterno miracolo del¬ 
la parola stampata. 

Se si ha in mente una tipo¬ 
grafia di tipo tradizionale, 
una visita alla News di Mila¬ 
no può essere fonte di non 
poche sorprese; sulle prime 
si può addirittura pensare di 
aver sbagliato indirizzo. 
Non si vedono infatti figure 
in camice nero intente a in¬ 
chiostrare rulli o ad allinea¬ 
re caratteri da stampa: la fo¬ 
tocomposizione le ha defini¬ 
tivamente consegnate al 
passato, aprendo invece le 
porte a nuove funzioni. 

"I testi vengono digitati 
sulla tastiera dell’Apple 
che, con appositi codici, ri¬ 
ceve anche le istruzioni tipo¬ 
grafiche: carattere, corpo, 
giustezza eccetera. Una vol¬ 
ta inserito, il testo viene poi 
automaticamente stampato 
su carta con un processo fo¬ 
tografico; ogni successiva 
modifica (tagli o aggiunte di 
righe, correzioni e ripensa¬ 
menti) e rimpaginazione 
vengono fatte a video e ri¬ 
mangono nella memoria 
dell’elaboratore centrale." 

Claudio Lovato, innovativo 
e intraprendente per tempe¬ 
ramento e per età, ha attrez¬ 
zato la sua tipografia con 
una ventina di Apple // e si è 
accattivato ben presto la fe¬ 
deltà di importanti clienti, 
attratti dai notevoli rispar¬ 
mi, di tempo e di denaro, 
che la fotocomposizione ga¬ 
rantisce. E, nel mondo del¬ 
l’editoria, poter accorciare 
di un giorno o due il ciclo di 
produzione è spesso provvi¬ 
denziale. 


Il responsabile della trasmissione dati dagli Apple al sistema centrale di 
fotocomposizione davanti a uno dei venti Apple in forza alla tipografia News. 


Ad Apple si 
addice il rosa 

Dei vantaggi offerti dalla 
composizione si è ben presto 
accorta la Mondadori, gran¬ 
de madre dell'editoria italia¬ 
na. 

Ha creato a Cles uno sta¬ 
bilimento per la stampa in 
rotativa della sua produzio¬ 
ne di fascia economica ed 
elevata tiratura (Oscar, 
Gialli eccetera); e a Cles 
giungono, su carta fotografi¬ 
ca e già impaginati, i testi 
fotocomposti a Milano. 

E proprio sugli Apple del¬ 
la News vengono composti 
moltissimi Gialli e Oscar 
Mondadori, assieme alla po¬ 
polarissima collana rosa 
Harmony\ i cuori palpitanti 
di molte giovani lettrici di 
questa serie tremerebbero 
forse, scoprendo che tra i 
primi a conoscere trame tan¬ 
to romantiche è stato un 
personal computer... 

"Oltre a Harmony , ai gial¬ 
li e agli Oscar" precisa Clau¬ 
dio Lovato, "qui per Monda- 
dori componiamo anche li¬ 
bri di fascia alta (un esempio 
per tutti: i Meridiani): foto¬ 


composizione infatti non si¬ 
gnifica assolutamente minor 
accuratezza o qualità infe¬ 
riore. Anzi, la quantità di 
refusi presenti nel testo fini¬ 
to, per esempio, viene senza 
dubbio nettamente ridotta". 

Se ne sono accorti infatti 


anche altri editori, che alla 
News ricorrono soprattutto 
per la produzione di periodi¬ 
ci e riviste: Playboy , Airone , 
Gardenia , Personal time e II 
Piacere , per nominare alcu¬ 
ne tra le testate più impor¬ 
tanti. 


C ^ ar tiìony' 


Amoree 

fotocomposizione: 
nascono così 
alcuni trai romanzi 
rosa più venduti. 



6 







In corsa 
con Apple 

Se poi una redazione si at¬ 
trezza a sua volta con Ap¬ 
ple, e invia alla News i suoi 
pezzi già su dischetto (anche 
Applicando nasce così, e al 
suo attivo ha il primato di 
aver aperto la strada a tutti 
gli altri!), i tempi di lavora¬ 
zione vengono ulteriormen¬ 
te ridotti. E questo fanno, 
per esempio, i redattori di 
Milanochorse , un nuovo pe¬ 
riodico tecnico delle corse al 
trotto e al galoppo distribui¬ 
to il fine settimana all’ippo¬ 
dromo di San Siro. 

"Presto, però, saremo 
presenti anche nelle agenzie 
ippiche", afferma Roberto 
Valli, direttore responsabile 
di Milanochorse. E' lui l'i¬ 
deatore del nuovo periodi¬ 
co, ed è lui che con un Ap¬ 
ple, un Profile e un Apple- 
Works ha studiato il sistema 
per avere a disposizione per 
ogni cavallo le informazioni 
indispensabili: prestazioni, 
fantino abituale, età, sesso, 
genealogia, proprietario e 
colori. 

Grazie a questa organiz¬ 
zazione apparentemente 
semplice, è sufficiente ogni 
settimana inserire nell'ele- 
boratore i nomi dei cavalli 
che partecipano alle riunio¬ 
ni, verificare ed eventual¬ 
mente cambiare i fantini e 
assegnarli alle relative cor¬ 
se. Il giovedì arrivano i dati 
dei partenti di sabato e il ve¬ 
nerdì quelli di domenica. 
Mezza giornata per elabo¬ 
rarli con un Apple, poi il di¬ 
schetto, formattato Apple- 
Works, vola in tipografia e 
un quarto d'ora dopo ecco il 
testo composto, pronto per 
essere impaginato e stampa¬ 
to. E’ tutto qui il lavoro che 
ogni settimana Milanochor¬ 
se richiede per essere redat¬ 
to. 

"Con AppleWorks diven¬ 
ta una cosa relativamente 
semplice", continua Valli: 
"usando il clipboard posso 
spostare i nomi dei cavalli 
che corrono quel giorno nei 
file in cui sono memorizzati i 


codici per la fotocomposi¬ 
zione, quel file cioè che an¬ 
drà poi in tipografia". 

Milanochorse ha il forma¬ 
to di una pagina di quotidia¬ 
no. Si divide in due parti: su 
un lato viene elencato il pro¬ 
gramma della riunione con i 
partenti e le caratteristiche 
delle corse, sull'altro le pre¬ 
stazioni dei partenti, che, 
dopo ogni corsa, vengono 
aggiornate con puntualità 
dalla redazione. La novità 
rispetto alle altre riviste del 
settore è rappresentata dai 
parziali ottenuti a diverse di¬ 
stanze, con il relativo piaz¬ 
zamento in quel momento 
della corsa. Vengono poi 
elencate le varie possibilità 
di puntata per i sistemi trio, 
e vengono stilate tre classifi¬ 
che di favoriti per ogni cor¬ 
sa: una selezionata dalla re¬ 
dazione di Milanochorse, 
una da un driver, di settima¬ 
na in settimana differente, e 
una, non poteva mancare un 
suo pronostico, dall'Apple 
//. 

Milanochorse è un perio¬ 
dico delle Edizioni Milano¬ 
chorse, Via G.Ameglio 9, 
Milano. Telefono 3574926. 



è garantito 

È in fin dei conti un nipo¬ 
tino dell’antico alchimista 
chi, chiudendosi solenne¬ 
mente nel bagno di casa, 
estrae bacinelle e dosatori e 
si dedica al "do it yourself" 
della fotografia. Spesso i ri¬ 
sultati sono ottimi, ma sulla 
precisione della strumenta¬ 
zione utilizzata e sulla quali¬ 
tà tecnica dei risultati qual¬ 
che appunto da fare forse 
c’è ... Se si vuole un prodotto 
davvero perfetto, d’altro 
canto, non basta nemmeno 
mettersi nelle mani dei labo¬ 
ratori specializzati: a volte la 
cura artigianale e affettuosa 
del dilettante vale più del- 
l’attrezzata, ma affrettata 
perizia dei professionisti. 

Al Centro foto assistenza 
di Martina Franca (TA) 
hanno trovato una soluzione 
che dovrebbe rassicurare 


pienamente i clienti sulla 
sorte delle loro pellicole: af¬ 
fidare a un personal compu¬ 
ter il controllo qualitativo 
dei processi e delle attrezza¬ 
ture di sviluppo e stampa. 

L'Apple //e rileva i dati 
forniti dal densitometro, li 
visualizza sullo schermo, li 
memorizza sul floppy disk e 
li trasferisce alla stampante 
e al plotter. Ogni scosta¬ 
mento dagli standard quali¬ 
tativi prefissati per i processi 
di sviluppo e di stampa (ov¬ 
viamente automatizzati), 
viene così immediatamente 
visualizzato. 

Intervenire, a questo pun¬ 
to, per ricondurre il proces¬ 
so in corso allo standard di 
qualità voluto è possibile e 
agevole, e l’uso delle attrez¬ 
zature necessarie è semplifi¬ 
cato dalla elevata qualità del 
software approntato, che 
mette subito in grado di in¬ 
terpretare i dati densitome- 
trici. 

Gli interessati a questo 
servizio computerizzato di 
controllo qualità possono ri¬ 
volgersi al Centro foto assi¬ 
stenza in via Brigata Regina 
53, 74015 Martina Franca 
(TA), telefono 080 
706910/706625. 



Due esemplari (uno è il numero zero, che porta fortuna) del foglio più letto a San Siro: 
Milanochorse. I redattori devono naturalmente fornirgli i dati, ma poi fa tutto l’Apple. 
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O SUPER VISION III. Monitor colori 12”, scher¬ 
mo antiriflesso. Possibilità di funzionamento 
in text mode su fosfori verde, ambra, bianco rever¬ 
se, selezionabili dall’utente. Risoluzione640x262. 

O VISION PAL. Monitor colori 12”, schermo an¬ 
tiriflesso. Possibilità di funzionamento in text 
mode su fosfori verde, ambra, selezionabili dal¬ 
l’utente. Ingresso videocomposito. Lowcost. 

O VISION PC. Monitor colori 12”, schermo anti¬ 
riflesso. Appositamente progettato per IBM 
PC. Risoluzione 640x262. 

O RGB VISION II. Monitor colori 12”. Risolu¬ 
zione 510x262. Ingresso RGB. Filtro smoked 
in dotazione. 

O KX 1201 - E. Monitor fosfori verdi 12”, scher¬ 
mo antiriflesso. Ingresso videocomposito. 
Opzionale piedestallo di basculaggio KTS-1 con 


orologio LCD incorporato (rif. 16). 

© KX1212- E. Monitorfosfori verdi 12, schermo 
antiriflesso, compatibile con IBM PC. Opzio¬ 
nale piedestallo di basculaggio KTS-2 con orolo¬ 
gio LCD incorporato (rif. 17). 

O KP910. Stampante a matrice 9x9,156 colon¬ 
ne a 140 cps bidirezionali ottimizzati, trasci¬ 
namento trattori e frizione, grafica. Elevata silen¬ 
zio sità. Near letterquality. Interfaccia Centronics. 
Disponibilefirmwarepercompatibilitàcon IBM PC. 
Capacità stampa su originale + 3 copie. 

Opzioni: (rif. 9) e (rif. 12). 

O KP- 810. Come KP910. Stampa su 80 colon¬ 
ne. Capacità stampa: originale + 2 copie. 

O KIF4308. Buffer di memoria esterno da64K 
bytes espandibili fino a 256K bytes. 

Può pilotare due stampanti. 


0 


KFD 510. Minifloppy 5” 1/4 da 140K byte 


Apple. 


slim line. Per Apple computers e compatibili 


O KIF 3600. Interfaccia colore grafica per IBM 
PC. Da utilizzare con Vision PC (rif. 3) e super 
Vision III (rif. 1). 

i KIF 3502. Interfaccia seriale RS 232 C. 


0 ' 


© KIF 3210 S/64. Espansione di memoria da 
64K a 256K bytes per IBM PC completa di 
interfaccia seriale RS 232 C. 

© RGB II B. Interfaccia RGB per computer 
Applell plus e Applell e, per i monitor (rif. 1) e 
(rif. 4). 


® KIF3700. Interfaccia monocromatica e stam¬ 
pante per IBM PC. Da utilizzare con KX1212-E 
(rif. 6) e KP 910 o 810 (rif. 7) e (rif. 8). 










Gigante nella qualità. Le periferiche TAXAN si 
sono imposte sul mercato USA per l’eccezionale 
affidabilità che nasce da una progettazione”senza 
economia” ed un’accurata scelta dei componenti 
impiegati. 


Gigante nella gamma. TAXAN offre una gamma 
completadi periferiche”madein Japan”, ideale per 
ognitipodi personal computer(lBM, APPLE, COM¬ 
MODORE, SINCLAIR, BBC, ecc.). 


Gigante nella convenienza. Decisamente com¬ 
petitivo, il prezzo è infine un’altra piacevole qualità 
delle periferiche TAXAN. 
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E se brucia 
l’ufficio? 

L'assicurazione, si sa, pa¬ 
ga i danni, ma non ricrea i 
file distrutti. Se alla buona 
salute dei supporti magneti¬ 
ci è affidato, come spesso 
succede, un vero e proprio 
patrimonio di dati faticosa¬ 
mente elaborati, conviene 
pensarci in tempo e proteg¬ 
gerli a dovere. Anche dalle 
fiamme. 

Pochi e semplici dati: in 
un quarto d’ora il calore svi¬ 
luppato da un incendio un 
po' gagliardo raggiunge i 
700 gradi, e neppure i meno 
sensibili tra i supporti ma¬ 
gnetici tollerano temperatu¬ 
re superiori a 65 gradi; se 
anche l’intervento antincen¬ 
dio fosse più che tempesti¬ 
vo, essendo verosimilmente 
a base di acqua produrrebbe 
un innalzamento del tasso di 
umidità intollerabile per i 
delicati supporti, che non 
sopravvivono oltre il valore 
limite dell’85%. 

La soluzione, proposta 
dalla belga Hadak e distri¬ 
buita in Italia dalla Datama- 
tic (via Volturno 46, 20124 
Milano, telefono 
02/6886795), è un mobile 
dalla linea elegante ed es¬ 
senziale, che in caso di in¬ 
cendio resiste alla violenza 
dei mille gradi per un tempo 
più che ragionevole. È di¬ 
sponibile in varie misure, a 
seconda delle esigenze di 
stoccaggio. 


Le mele 
si collegano 

Nasce da un accordo tra la 
GEIS (General electric in- 
formation Services) e la Ap¬ 
ple una nuova opportunità 
per gli utenti Apple: il colle¬ 
gamento con Mark III, la re¬ 
te del servizio di elaborazio¬ 
ne dati a distanza della stes¬ 
sa GEIS. 

Le città italiane diretta- 
mente collegate a questa re¬ 
te, che è la più estesa e capil¬ 
lare del mondo, sono già 19; 
è però perfettamente realiz¬ 
zabile il collegamento tra il 
network e le reti telefoniche 
pubbliche (nonché via te¬ 
lex), che toglie ogni vincolo 
geografico alla disponibilità 
del servizio. Anche l’acces¬ 
sibilità è illimitata: 24 ore al 
giorno, 365 giorni all’anno. 

Tra i molti personal com¬ 
puter, dicono alla GEIS, 
Macintosh presenta delle 
caratteristiche di versatilità 
e semplicità d'uso ottimali 
per integrarsi con i sistemi di 
comunicazione e con le ap¬ 
plicazioni offerti da Mark 
III. Anche in questo caso, 
dunque, beato chi ce l'ha! 


Tutto il Mac, 
opzione 
per opzione 

Organizzato dalla Etno- 
team per i giorni 15 e 16 
aprile, è in arrivo un corso di 
informatica individuale con 
il Macintosh dal programma 
succoso: finestre, icone, 
mouse; comandi, gadgets, 
funzioni generali; esempi di 
word processing (macwrite) 
e di pittura (macpaint); ge¬ 
stione di schedari elettronici 
(PFS: file e PFS: report), di 
file (filevision) e di alberi lo¬ 
gici (think-thank). La quo¬ 
ta di partecipazione. Iva 
esclusa, è di 450 mila lire. 

Sempre presso la sede 
della Etnoteam si terrà nei 
mesi di marzo e aprile una 
serie di brevi corsi per pro¬ 
fessionisti, dirigenti, re¬ 
sponsabili di gestione. Ecco 


alcuni titoli in programma. 
Il personal computer nel¬ 
l’ufficio: i fogli e i dossier 
elettronici (18 e 19 marzo, 
450 mila lire); la grafica per 
il manager (1 aprile, 250 mi¬ 
la lire); il personal computer 
nell’ufficio: gli archivi elet¬ 
tronici e i data base (17 e 18 
aprile, 450 mila lire). 

Per informazioni, iscrizio¬ 
ni, richieste di programmi: 
Etnoteam, via Staro 4, 
20134 Milano, telefono 02 
2141521. 


Seminario EDP 

Il consorzio interuniversi¬ 
tario lombardo per la elabo¬ 
razione automatica (Cilea) 
organizza a Milano, nei 
giorni 11 e 12 marzo, un se¬ 
minario sulle applicazioni di 
personal computing per ma¬ 
nager: gestione di budget, 
preventivi, controllo avan¬ 
zamento lavori eccetera. 

Per la partecipazione al 
corso, che si terrà al Palazzo 
delle Stelline, corso Magen¬ 
ta 61, la quota è di 550 mila 
lire Iva esclusa. Per ulteriori 
informazioni ci si può rivol¬ 
gere alla segreteria tecnica 
del Cilea, via Raffaello San¬ 
zio 4, 20090 Segrate (MI), 
telefono 02 2132541. 


Due modelli della serie antifuoco Hadak MCC: 
il 100 (70 kg, 47 x 54 x 50 cm) e il 300 (165 kg, 76 x 68 x 69 cm). 
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Un gran 
bel carattere 

Allungato, enfatizzato, 
compresso, condensato, di¬ 
latato... Il carattere della 
Panasonic KX - P 1090 è 
assolutamente versatile e re¬ 
golabile. È una stampante a 
matrice, bidirezionale otti¬ 
mizzata, con trattore e fri¬ 
zione a passo variabile che è 
possibile comandare anche 
via hardware grazie a un'ap¬ 
posita levetta. 

Ecco le principali caratte¬ 
ristiche grafiche: 80 punti e 
96 colonne, rispettivamente 
con carattere Pica o Elite 
con 80 e 96 c.p.s., set di 96 
caratteri ASCII più indiriz¬ 
zamento grafico anche a 
doppia densità. La cartuccia 
è a lunga durata: tre milioni 
di caratteri. 

Il costo, Iva esclusa, è in¬ 
feriore alle 800 mila lire. 


Tecnorama 

ufficio 

Con una notevole affluen¬ 
za di pubblico e un bilancio 
soddisfacente si è conclusa a 
Bari la prima edizione della 
fiera del computer. Più del¬ 
l’arredamento e del macchi¬ 
nario per ufficio, infatti, 
protagoniste del salone sono 
state la telematica e le co¬ 


municazioni nell’organizza¬ 
zione aziendale. 

E stato intenso e fruttuo¬ 
so anche il programma dei 
dibattiti: rapporti con le uni¬ 
versità e con le istituzioni, 
scambi con i paesi del Medi- 
terraneo, importanza della 
tecnologia informatica nella 
scuola, nel mondo dell'edi¬ 
toria, nella pubblica ammi¬ 
nistrazione, nel sistema ban¬ 
cario e nella ricerca medica 
sono alcuni dei titoli. Ai di¬ 
battiti hanno partecipato 
studiosi, industriali e re¬ 
sponsabili politici. 


Screen fi Iter, 
l’antistress 

La struttura di base è mol¬ 
to semplice: un microtessu¬ 
to abbinato a una cornice 
plastica; disponibile in nero, 
verde, ocra e blu oppure 
nella versione antistatica 
(nero o grigio), questo filtro 
elimina i riflessi dallo scher¬ 
mo del computer, valorizza 
la nitidezza della videata e 
riduce lo stress visivo. 

Semplice da installare e 
facile da pulire, economico 


e durevole, lo screen filter è 
prodotto dalla ICS (Interna¬ 
tional computer supplies) di 
Saronno ed è in vendita nei 
negozi specializzati. 


Il raccoglitore? 
Non mi serve, 
grazie 

Pratica ed economica la 
soluzione proposta dalla 
Memorex al problema della 
conservazione dei dischetti: 
una confezione da dieci di¬ 
schetti (da 8 e da 5,25 polli¬ 
ci) contenuti in una custodia 
rigida robusta ed elegante. 
Rispetto a quella tradiziona¬ 
le in cartone questa confe¬ 
zione viene a costare legger¬ 
mente di più (quanto un di¬ 
schetto supplementare), ma 
è molto più funzionale: il co¬ 
perchio si può ribaltare par¬ 
zialmente in modo da poter 
visionare i dischi contenuti 
senza doverli estrarre, e può 
inoltre accogliere l’indice 
con i dati di riferimento. 

Rispetto ai raccoglitori 
tradizionali, a libro o a cofa¬ 
netto, la soluzione confezio¬ 
ne/raccoglitore ha il vantag¬ 
gio di costare e ingombrare 
meno, garantendo però un 
livello di protezione dei di¬ 
schi altrettanto buono. 



Screen filter, il filtro antiriflesso in monofilo poliammide 
prodotto dalla I.C.S. per il video dei personal computer. 
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pappié computer 


Apple Ile 


monitor Ile e supporto 
Disk drive aggiuntivo, 
Mouse. 



Omaggio: stampante da 8" 
grafica a colori. 


sinczlaii - 

ZX Spectrum 48K 



8 cassette originali, 

2 libri in italiano, 
supergaranzia Rebit. 

£. 365.000 iva inclusa 


Gruppo 

DunpuShni 


Macintosh 

512K RAM 


Omaggio: stampante grafica 

da 8", bidirezionale, 
120 cps, 

oppure accessori di 
uguale importo. 



Apple II & 

128K RAM, 80 colonne 
Duodisk 



Omaggio: monitor 12" 
a fosfori verdi 



SPECTRAVIDEO 


IÉ 

(/) 

Q 

CQ 


sineziair - 
Commodore 
Aippkz computar 

olivelli 


• Via Nomentana 265/273 

Tel. 8450078 

• Via L. Bonincontri 105/107 

Tel. 5140792 

• Via Famagosta 33 

Tel. 385408 


Ulteriori informazioni saranno fornite presso i punti vendita 



























A Palermo 
è nato il MIT 

Con un nome molto lungo 
(Centro Studi Magistero di 
Informatica e Telematica), 
è stato finalmente creato a 
Palermo un istituto parauni¬ 
versitario capace di colmare 
un vuoto formativo avverti¬ 
to ormai da tempo. Il perso¬ 
nale formato dal MIT (due 
anni di frequenza) sarà in 
grado di gestire sistemi in¬ 
formativi di vasto respiro, 
per esempio nella pubblica 
amministrazione o nel setto¬ 
re bancario. Pur essendo il 
MIT un’associazione priva¬ 
ta, la frequenza ai corsi sarà 
gratuita: enti pubblici e 
aziende private, futuri dato¬ 
ri di lavoro del personale 
specializzato al Magistero di 
Informatica e Telematica, 
garantiscono infatti l'asse¬ 
gnazione di borse di studi. 
Per informazioni: MIT, 
piazza Verdi 20, 90138 Pa¬ 
lermo, tei. 091 325346. 


3 pollici e mezzo 
ma 500 Kb 

Certificate contro ogni 
possibilità di errore e garan¬ 
tite per sempre, arrivano le 
micro-diskettes della 3M, 
compatibili con tutti i drive 
esistenti sul mercato che uti¬ 


lizzano appunto il formato 
da 3,5". 

Il supporto magnetico ad 
alta densità, protetto da una 
robusta custodia grigia in 
plastica, garantisce, grazie 
alla levigatura superficiale, 
un intimo contatto tra testi¬ 
na e disco e quindi un trasfe¬ 
rimento ottimale delle infor¬ 
mazioni sia in scrittura che 
in lettura. 

La modulazione del se¬ 
gnale di uscita, molto bassa, 
assicura infine la massima 
stabilità, così da minimizza¬ 
re la possibilità di errori di 
lettura imputabili a variazio¬ 
ni di livello. 


Un disco 
per l’estate 

Il mercato italiano del 
floppy disk "è passato dai 6,5 
milioni di pezzi del 1983 ai 
circa 10 milioni del 1984, per 
arrivare ai prevedibili 
13-14 milioni del 1985"; sta¬ 
tistiche alla mano, Gian Pie¬ 
ro Cattaneo, direttore della 
divisione prodotti magnetici 
della Memorex, prevede 
quindi che nel 1985 si supe¬ 
rerà ampiamente il livello 
del milione di dischetti ven¬ 
duti ogni mese. 

Ma quali dischetti? L’otto 
pollici, molto amato un paio 
di anni fa, cede il passo al 



Gian Piero Cattaneo, 
direttore della divisione 
prodotti magnetici della 
Memorex. 


trionfante floppy disk da 
5,25" (5/6 del mercato); per 
l'85, che vedrà un grosso svi¬ 
luppo del mercato del porta¬ 
tile, sarà notevole di conse¬ 
guenza anche la diffusione 
del 3,5". 


Biblioteca Apple 

D. Duff, Guida al Macin¬ 
tosh, McGraw-Hill 1985, 
pagg. 220, L. 22.000 

Un’introduzione al più in¬ 
novativo dei personal com¬ 
puter veramente completa: 
le periferiche, la scrivania, il 
mouse, i menù, la finestra e 
le icone, la tastiera, i dialo¬ 
ghi, i file, i dischi, l'archivia¬ 
zione, la memoria sono i pri¬ 
mi argomenti trattati. Ap¬ 
profondita e chiara è poi la 
presentazione del software 
più importante: MacWrite, 
MacPaint, MacTerminal, 
Multiplan. Importanti an¬ 
che i capitoli conclusivi, de¬ 
dicati ai principali linguaggi. 


Meri K. Miller e Mary A. 
Myers, Introduzione all’Ap¬ 
ple Macintosh, Muzzio 1984, 
pagg. 125, L. 16.000 

Dedicato a chi possiede 
un Macintosh e a chi ha già 
una mezza idea di acquistar¬ 
selo, questa guida introduce 
all’uso di questa "macchina 
rivoluzionaria, fortemente 
orientata verso il futuro". 

L'hardwaredel Macin¬ 
tosh, gli accessori della sua 


scrivania, la finestra e i me¬ 
nù, il word processing, 
MacWrite, MacPaint e Mac- 
Futuro e, infine, linguaggi di 
programmazione e software 
di comunicazione e di pro¬ 
duzione sono gli argomenti, 
ampiamente trattati, di que¬ 
sto libro. 


Tim Field, Using MacW¬ 
rite and MacPaint, Osborne 
McGraw—Hill 1984, pagg. 
200 

Un manuale, in inglese, 
per rendere quanto più gra¬ 
devole e fruttuoso l'uso del 
fondamentale software per 
Macintosh. MacWrite e 
MacPaint, attraverso una 
nutrita serie di applicazioni 
e di proposte, vengono esa¬ 
minati sia come programmi 
separati sia come tecniche 
creative combinate a creare 
un sistema applicativo po¬ 
tentissimo. 

Attraverso un simpatico 
percorso, con il frequente ri¬ 
corso a esempi ben illustrati, 
il lettore viene guidato a im¬ 
padronirsi di MacWrite e 
MacPaint come strumenti 
insuperabili per potenziare 
la sua personale creatività. 




13 






















Computer Center apre Genova aH'informatica 

con il suo primo Computer Shop 


Computer Center guida Genova nellìnformatic 

con i suoi ComputerShops 


Apple a Genova é 


ÉKcippkz computer 


computer coniar 

vendita-assistenza -software -corsi 


ViaS.Vincenzo 107-109r. tei.010/581474 Genova 
Via Storace 4 r. tel.010/454107 Ge.$ampierdarena 
Via S.Vincenzo 129r. tei. 010/ 581815 Genova 
Corso Gastaldi 77r. tel.010/300797 Genova 
C.soB.Aires 125 tei.0185/314142 Lavagna 



PER IL TUO APPLE // 


Vi piacciono le regate? O preferite esplorare le caverne dell’Olimpo? Oppure vorreste 
avere sul vostro schermo il fantastico gioco della scimmia che scappa arrampicandosi sulle 
pareti lisce di un grattacielo? Siete invece tipi riflessivi e vi dilettate di musica? Non 
preoccupatevi, qui c’è sicuramente quello che fa per voi. Per gli amanti di tanti giochi tutti 
insieme è disponibile una raccolta. Per chi, infine, vuole migliorare le proprie capacità di 
programmatore, ecco tutti i trucchi del Basic su dischetto. E a prezzi eccezionali. 



REGATTA. Un gioco entusiasmante che farà 
impazzire marinai esperti e meno esperti di 
qualunque età. Ogni concorrente ha a 
disposizione una barca e un circuito. Poi ci 
sono i venti, gli ostacoli, gli imprevisti... Una 
grafica realistica vi farà volare tra le onde. 
Paddle o Joystick opzionali. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


CAVES OF OLYMPUS. Oltre a una grafica a 
colori ultraprofessionale, questo gioco di 
abilità sfodera suoni ed effetti speciali di 
qualità nettamente superiore. Divertente, 
intrigante e irresistibile. Non richiede né 
paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APPLE ESCAPE. Una scimmia è fuggita dallo 
zoo e si arrampica sulle finestre di un 
grattacielo. Elicotteri le ronzano attorno e il 
guardiano delio zoo la insegue. Riuscirà a 
raggiungere il tetto e la libertà? Tutto dipende 
da quanto abili siete. Grafica a colori. Non 
richiede né paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 



MUSIC GAMES. 12 programmi educativi e 
divertenti sul filo delle 7 note. Senza bisogno 
d’altro, il vostro Apple si tramuterà in un 
docile strumento musicale dal quale 
imparare e col quale divertirsi. Sono richieste 
le paddle o il joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APPLEGAMES.il giochi: Flip-Flop, 
Mastermind, Towers, Sherlock’s home, 
Attackof theZargons, Phaser Practice, 
Acey-Ducey, Big government, Tic-Tac-Toe, 
Qubic, Depth charge. E tre programmi di 
utilità: Shape table generato r, Opening 
ceremonies, Master catalog. Per alcuni 
giochi sono richieste le paddle o il joystick. 
Dischetto con programma e manuale in 
elegante confezione a 50.000 lire. 


BASIC TRICKS F0R THE APPLE. 35 routine 
che renderanno molto più professionali i 
vostri programmi in Basic e che vi sarà 
facilissimo imparare utilizzando il manuale e 
il dischetto offerti in elegante confezione a 
sole 50.000 lire. 


Cognome e nome. 

Via .N. 

Cap .Città .Provincia. 

Scelgo la seguente formula di pagamento: 

□ Allego assegno non trasferibile di lire.intestato a Editronica srl, 

Corso Monforte 39, 20122 Milano 

□ Allego ricevuta di versamento di lire.sul conto corrente postale 

n. 19740208, intestato a Editronica srl, Corso Monforte 39, 20122 Milano 


Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i programmi contrassegnati con 
una crocetta. 

□ REGATTA. 40.000 lire. 

□ CAVES OF OLYMPUS. 40.000 lire. 

□ APPLE ESCAPE. 40.000 lire. 

□ MUSIC GAMES. 40.000 lire. 

□ APPLE GAMES. 50.000 lire. 

□ BASIC TRICKS F0R THE APPLE. 

50.000 lire. 


Data 


Firma 






















































Creare al computer un’immagine complessa e ricca di 
£ 0 ^ particolari ben definiti, con generose pennellate di vivace colore, 
senza perdere troppo tempo e divertendosi un mucchio? 
Basta avere un po’ di fantasia. Con questo orsetto scoprirete, 
passo dopo passo, quanto è facile la creatività... 


Metti Yogi 


in prima pagina 



G razie alla loro professione si sono 
sempre divertiti assai, diciamo¬ 
lo, ma adesso, di questi tempi, stanno 
passando davvero ogni limite; dise¬ 
gnatori, pubblicitari, art director, ar¬ 
chitetti, stilisti e creativi in genere so¬ 
no stati baciati in fronte dalla dea del 
progresso tecnologico: il personal 
computer è stato per loro una vera 
manna, e ha trasformato il loro lavoro 
in un eterno gioco... 

Un personal come Macintosh, poi, 
che unisce doti di grande simpatia a 
una semplicità d’uso insuperabile, 
permette la realizzazione in tempi re¬ 
cord dei prodotti grafici più vari e ric¬ 
chi; creare una qualsivoglia immagine 
non richiede infatti nessuna conoscen¬ 
za di linguaggi, né di tecniche di pro¬ 
grammazione: basta un’agilissima oc¬ 
chiata al manuale e si è pronti per crea¬ 
re. 

Creare cosa? Ciò che si vuole, natu¬ 
ralmente: disegni con testi, vignette 
con fumetti, scritte arabescate... Per 
ora, a mo’ di allenamento, eccovi un 
simpatico orsetto, con una piccola ape 
e un pesce spruzzettante. 

Mario Lovergine 


osizione Strumenti Himentmm SUIe 



Figura 1. La tastiera permette di dare i comandi tipografici, utilizzando il 
tasto opzione, il tasto comando e il tasto maiuscole. È inoltre possibile 
spostare, ingrandire, copiare, disegnare ortogonalmente, far slittare o ruo¬ 
tare l’immagine, renderla negativa, rifare i contorni. Tutte le altre operazioni 
si realizzano con l’uso del mouse. 

Figura 2. Ha inizio l’operazione orsetto: inserite innanzitutto il disco pro¬ 
gramma MacPaint e aprite, con il mouse, un nuovo documento. Dalla tavo¬ 
lozza degli strumenti scegliete l’ovale vuoto, e decidete lo spessore del suo 
contorno utilizzando la tavolozza delle linee; fate poi una serie di ovali e 
anche, tenendo premuto il tasto delle maiuscole, una serie di cerchi: servo¬ 
no per realizzare il muso dell’orsetto. 
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é flrchiuio Composizione 


Caratteri Dimensioni Stile 


SCREEN 3 


QK | [Nessuno] 


Strumenti 






mmmm 


Richiuso Composizione Strumenti Caratteri DimensiorH - 


SCREEN 5 


DISEGNO 
Off COMPIETDDE 
E CONNI CE 


Figura 6. Dopo aver completato il 
disegno, scegliete i motivi per i 
fondi e riempiteli con il colore; per 
la cornice, invece, dovete prima 
stabilirne lo spessore in base alla 
tavolozza delle linee e poi, pre¬ 
mendo il tasto delle maiuscole, di¬ 
segnarla. Giunti a questo punto 
dovete decidere se l’orsetto sta 
bene così da solo o se va accom¬ 
pagnato a scritte o testi per realiz¬ 
zare una copertina, un annuncio 
pubblicitario, un manifesto... Ri¬ 
chiamate in questo caso la pagina 
intera e stabilite lo spazio per il 
testo e quello per il disegno. 


Figura 3. Lo strumento da usare 
adesso è il lazo, che consente di 
ricomporre l’occhio, il muso e le 
orecchie dell’orsetto; per sposta¬ 
re la copia e sistemare così orec¬ 
chie e occhi premete invece il ta¬ 
sto opzione. La gomma, prelevata 
dalla tavolozza degli strumenti, vi 
permetterà poi di cancellare le par¬ 
ti eccedenti. Infine, dopo aver 
scelto il motivo retino, potrete 
usare il secchiello (preso sempre 
dalla tavolozza strumenti) per reg¬ 
nare alcune zone. 


j flrchiuio Composizione Strumenti Caratteri Dimensioni Stile 


SCREEN 


Figura 5. Sempre scegliendo dal menù strumenti, 
procuratevi un pennello dalla forma più adeguata. 


é Rrchiuio Composizione Strumenti Caratteri Dimensioni Stile 


SCREEN 6 



Ha 




[è 



& 


[□ 

m 


TESTO 

TITOLO 

\ 


Figura 4. A questo punto scegliete, dal menù strumenti, la 
funzione pennellata speculare a due specchi. 
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é flrchìuio Composizione 


OISCREEN 8 


Introduzione 

Scorciatoie 


Pennellata Speculare 


vtondon 


Strumenti 


Figura 7. Riquadrate lo 
spazio scelto, date l’OK 
e scegliete, dalla tavo¬ 
lozza strumenti, il ret¬ 
tangolo. Con il tasto del¬ 
le maiuscole preparate 
due quadrati, pieno e 
vuoto, duplicateli con il 
lazo e spostateli nello 
spazio voluto. Scegliete 
poi dai rispettivi menù il 
carattere, le dimensioni 
e lo stile; dopo aver 
scelto, per esempio, il 
London, scrivete APE. 


Figura 9. Sistemate al centro della pagina 
l’illustrazione così terminata e controllate 
se c’è qualche ritocco da fare. 


Caratteri Dimensioni Stile 


Griglia 

Immagine Ingrandita 
Pagina Intera 
Componi un Motiuo 
Forma del Pennello 


SCREEN 9 






RrchiLMO Composizione Strumenti 


Dimensioni Stile 


New York 

Geneua 

Toronto 

Monaco 

Chicago 

Uenice 


SCREEN 7 


Rthens 


San Francisco 


Figura 8. Richiamate ora la 
pagina intera, riposizionate 
la finestra e date l’OK. Dal 
menù degli strumenti sce¬ 
gliete la pennellata specula¬ 
re, in modo da poter disegna¬ 
re, con il giusto pennello, il 
pesce e l’acqua; selezionate 
poi lo spray e, dopo aver 
scelto un motivo, colorate ii 
pesce. Infine, con un motivo 
diverso, riempite anche il 
fondo. 



Mario Lovergine nel suo 
studio fiorentino. Primo 
in Italia a occuparsi di 
computerart, ha al suo 
attivo una conoscenza 
del Macintosh come 
pochi nel mondo. Col 
Mac, infatti, ha 
disegnato testate di 
giornali, loghi per 
prodotti diversi e ha 
anche organizzato 
alcune mostre. Da 
questo mese comincia 
la sua collaborazione ad 
Applicando. 
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STAMPA 


tratto 

DISEGNO.NERO 


■«■■■■■■■■■■■ SC REE N 1GHBBHHHHB 

RIPRODUZIONE OFFSET/FOTOLITO 
COMPOSIZIONE DEL COLORE CON LR SODRRPPOSIZIONE 
DI RETINI IN PERCENTUALI DEI COLORI PRIMARI 
N /NERO-B/BLU -G/GIRLLO-R/ROSSO 

10%-25%-50%-75%-100% 



oppure 

B.100%+ 

G.100% 


G.100% 


G.100% 

R.50% 


R.50% 


R. 100% 
G.100% 


B.50% 

G.IOO 


R.100% 


G.100% 

+B.25% 


G.100% 
+ B.50% 


NEG. 

BIANCO 


+ G.100 
+ R.25% 


© 1984/riAFJO LOVERGINE GRAPHICOMPUTER 


R.100% 


Figura 10. Date le giuste indicazioni con le percentuali per il colore e passate 
pure alla stampa. 
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Se non volete problemi di memoria, 
meglio far lavorare 3M. 



Prodotti per l’Informatica 
Divisione Sistemi per l’Ufficio 

Sede: Via S. Bovio, 1/3 - 20090 Milano S. Felice - Segrate Tel. 02/75451 
Filiali: Torino Tel. 011/6192192 - Mestre Tel. 041/962255 - Genova Tel. 010/451801 - 
Bologna Tel. 051/557157 - Firenze Tel. 055/355841 - Roma Tel. 06/58421 - Napoli Tel. 081/660266 


DISTRIBUTORI 
AUTORIZZATI IN TUTTA 
ITALIA 

VEDI PAGINE GIALLE 
ALLA VOCE CENTRI 
MECCANOGRAFICI 
FORNITURE PER 


I problemi di memoria di 
un’azienda trovano la prima rispo¬ 
sta nella 3M già nel 1951, anno in cui 
la 3M sviluppò il primo nastro ma¬ 
gnetico per computer. 

Questo dato la dice lunga sul 
primato di esperienze tecnologiche 
maturate in questo campo dalla 3M, 
sul patrimonio di qualità e affidabili¬ 
tà della produzione 3M nel settore 
dei supporti magnetici. 

Prendiamo le diskettes, ad 
esempio: omologate dai maggiori 


costruttori, certificate al 100%, ga¬ 
rantite 5 anni, esportate in tutto il 
mondo, distribuite in Italia attraverso 
una rete capillare di 400 punti ven¬ 
dita. E soprattutto disponibili in una 
gamma completa sia nella misura 
da 8 pollici che in quella da 5 e 1/4, e 
con un esclusivo rivestimento ma¬ 
gnetico che consente un’eccezio¬ 
nale resistenza all'usura e la massi¬ 
ma affidabilità. 3M ha sempre una 
risposta pronta per i v ostri pr oble- 
mi di ufficio. 


E non solo con i prodotti per l'in¬ 
formatica. Ma anche con i sistemi di 
fotocopiatura, microfilmatura, visual 
e di telecomunicazione. 

Perchè 3M lavora offrendo so¬ 
luzioni “ad alta tecnologia" per il vo¬ 
stro ufficio. E per tutti gli uffici. 

3M. SISTEMI 
PER L’UFFICIO 
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Applicando vuole diventare sempre più utile e gradito ai suoi lettori Per questo la 
invitiamo a compilare il seguente questionario. Potrà cosi esprimere le sue esigenze e le 
sue preferenze. Pochi minuti del suo tempo possono dimostrarsi un prezioso aiuto 
per le nostre future scelte redazionali. Ringrazieremo tutti coloro che ritorneranno 
il questionario compilato con un numero gratis di Applicando. 

1. Da auanto tempo legge Applicando? 

11. indichi le periferiche che completano 

[jj Dal n. 1 jj] Da 3 mesi 

il suo computer. 

HO Da 1 anno [3] Questo è il primo numero 

23 Drive aggiuntivo [3] Solo 80 colonne 

[3] Da 6 mesi 

2j Hard disk [7] Mouse 

2. Normalmente conserva le copie di Applicando? 

[3] Stampante [S] Modem 

PI Le conservo e le rileggo spesso 

0 Plotter Monitor 

[2] Le conservo ma non le rileggo 

13] Espansione di memoria con 80 colonne 

ITI Non le conservo 

12. Usa il suo computer soprattutto per: 

3. Quante persone, oltre a lei. leggono la sua 

(non barrare oiù di 3 risposte) 

copia d» Applicando? 

PI Lavoro [31 Gestione e finanza familiare 

0 1 [2] 2 [3] 3 (35-10 GC Nessuna 

[HA scuola [§] Divertimento in famiglia 

4. L Apple che lei usa abitualmente è: 

PQsviluppo software commerciale 

jTj Di sua proprietà jT] Della scuola 

jT] Studio in casa jT] Altro 

|~2] Dell’azienda dove lavora [3] Di un amico 

IT Non possiedo un Apple 

13. Quanto spende Tanno per il software? 

PI Meno di 200mila lire 
f 2} Da 200 a 300mila lire 

5. Specifichi quale computer usa o possiede. 

[Tj Da 300 a 400mila lire 

23 II Plus [2] // e QÌ //C GU IH 0 Lisa 

RI Da 400 a 500mila lire 

[^Macintosh [7] Compatibile Apple (Lemon. ecc.) 

[TI Da 500miia a 1 milione di lire 

6. Da Quanto tempo usa o possiede l’Apple? 

[6] Da 1 a 2 milioni di lire 

23 Da 2 0 più anni 23 Da 6 mesi [|]Da 1 mese 

[Tj Oltre 2 milioni di lire 

GE3 Da 1 anno (Tj Da 3 mesi 

14. Quanto spende Tanno per T hardware? 

7. Come considera, in generale, la sua 

PI Meno di 500mila lire 

conoscenza del computer? 

[2] Da.SOOmilaa 1 milione di lire 

Q] Principiante Discreta 0 Buona 

jT] Da 1 a 1,5 milioni di lire 

8. Usa 0 possiede altri personal computer? 

R] Da 1,5 a 2 milioni di lire 

[T] Sì. di mia proprietà 

[31 Da 2 a 3 milioni di lire 

[~2~ì Sì, dell’azienda dove lavoro 

RI Da 3 a 4 milioni di lire 

PTi Si. a scuola [Tj Sì. di un amico 

Oltre 4 milioni di lire 

^.Se sL-Qe specifichi ffl.arca e^mpjjellpi 

15. Ouanto dedica alla lettura di Applicando? 

10. Indichi Quale personal intende eventualmente 

jT] Meno di l ora [T] 5-7 ore 

acauistare nei prossimi 12 mesi. 

23 1-3 ore 07-10 ore 

[TjMacintosh jj]// e (Tj // c [T] Compatibile Apple 

0 3-5 ore 0 più di 10 ore 

[31 Macintosh XL 23 IBM 23 Olivetti 23 Altro 

Continua ^ 
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16. Quando trova su Applicando un programma 

che la interessa, cosa fa: 

fTl Copia il listato solo se è corto 
HI Copia il listato qualunque sia la lunghezza 
UH Acquista il disco col programma 
R] Legge l’articolo e cerca di scrivere 
un programma da sé 

17. Quante volte ha acquistato prodotti 

pubblicizzati su Applicando? 

PI Raramente 

® Qualche volta S Abbastanza spesso 

18. Quante volte ha acquistato prodotti 


[T] Raramente 
R] Qualche volta 


Abbastanza spesso 


19. A quante persone, in passato, ha segnalato 

o consigliato prodotti software da acquistare? 

GQ Nessuna [2] 1-3 [3] 4-6 

0 7-10 0 Oltre 10 

20 . A quante persone, in passato, ha segnalato 

o consigliato prodotti hardware da acquistare? 

0 Nessuna 0 7-10 

,0 1-3 [3 Oltre 10 

0 4-6 

21. Mediamente, in una settimana, quante ore 

dedica al suo Apple? 

HI Meno di 2 ore CU 12-16 ore 

CU 2-6 ore [3] 17 e più ore 

CD 7-11 ore 

22. Pelle rubriche fisse presenti su Applicando. 

Pi già Mene 

[T| Applichi 
R] Applicosa 
[3] Applettere 
j4] Applihelp 
Ì31 Appliscuola [g] 

23.0uali altre riviste di computer legge? 

PI Micro e personal computer [5] Bit 
[2] Microcomputer [6] Personal time 

m Personal computer [7] Nessuna 

RI Radioelettronica ^computer [5] Altre riviste 


m 

di 

a 

a 


24 Che cosa vorrebbe veder pubblicato di più? 

m Utility per programmare 
RI progetti hardware 

[3l Programmi per uso personale e familiare 
RI Articoli per principianti 
[31 Programmi in Pascal 

[6] Corsi a puntate che insegnino a programmare 
HI Segnalazioni di novità software 
0E3 Segnalazioni di novità hardware 
a Articoli per uso didattico 
0 Articoli su Macintosh 
IO Programmi di grafica [O Giochi 

25. Qual è la sua età? 

©^-17 035-44 ® ® 

[2] 17-24 045-55 (p) g] 

[2] 25-34 Rloitre 55^ 

26. Quali studi ha frequentato? 

[T] Elementari HI Medie superiori 

[2] Medie RI Università 

27. Qual è la sua attuale occupazione? 

CQOperaio \T\ Libero professionista 

GCTecnico specializzato [^Dirigente 

[3] lmpiegato [g] Imprenditore 

27. A quale livello di reddito mensile 

appartiene il suo nucleo familiare ? 

PI Fino a 1.4 milioni [T| Fino a 2 milioni 

RI Fino a 1.6 milioni [T] Fino a 2.5 milioni 

GO Fino a 1,8 milioni [6] Oltre 2.5 milioni 

GQ Sono abbonato. Prolungate gratuitamente 
di un numero il mio abbonamento 

[2] Non sono abbonato. Speditemi gratuitamente 
il seguente numero di Applicando: _ 


(Attenzione i nn. 1 e 2 sono esauriti!) 


DATI FACOLTATIVI 


NOME 


COGNOME. 
INDIRIZZO _ 
CAP 


CITTA 


PROVINCIA 
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Ogni automobilista spende in media 500.000 lire l’anno 
per la manutenzione della propria automobile. Una cifra 
non piccola, che spesso raddoppia o triplica se si 
trascurano gli interventi da effettuare a intervalli regolari. 
Ma come si fa a ricordare tutto? Con questo programma... 


DOS 3.3 
■ProDOS 
APPLE //e - 
APPLE //c filili 


... per meccanico 
avrò un computer 



S copo principale della manuten¬ 
zione è la prevenzione dei danni. 
Tutte le parti in moto e tutte le parti 
esposte agli agenti atmosferici sono 
soggette a usura, che prima o poi si 
trasforma in guasto o danno. 

Quando le conseguenze dell’usura 
si sono manifestate, quasi sempre è 
troppo tardi per correre ai ripari, e il 
danno, anche se rimediato, avrà ormai 
"marchiato" il veicolo in maniera irre¬ 
versibile. Questo comporta un aumen¬ 
to dei costi complessivi e, peggio anco¬ 
ra, un decadimento della sicurezza del 
veicolo. 

E quindi molto importante stabilire 
programmi di manutenzione che pre¬ 
vedano controlli, ricambi e riparazioni 
da eseguire a scadenze fisse. E con 
Faiuto di un computer, non c’è perico¬ 
lo di dimenticare qualche data o qual¬ 
che operazione. 

A seconda delle operazioni da com¬ 
piere, le scadenze possono essere ogni 
1.000, 2. 500, 5.000, 10.000, 30.000, 
50.000 chilometri. 

Questi periodi sono indicativi e pos¬ 
sono variare a seconda dei tipi di auto¬ 
mobile. La cosa migliore è fare riferi¬ 
mento al libretto di uso e manutenzio¬ 
ne relativo alla propria auto. Comun¬ 
que, in tutti i veicoli gli interventi più 
numersi sono quelli da eseguire ogni 
10.000 chilometri. 

Immettete quindi senz’altro nel 
computer i dati contenuti nella tabella 
1, completando poi il lavoro, come già 
suggerito, facendo riferimento al ma¬ 
nuale della vostra automobile. Baste¬ 
rà poi utilizzare il programma una vol¬ 
ta al mese, immettendo mese, anno e 
lettura del contachilometri: il compu¬ 
ter genera automaticamente un elenco 
delle voci per le quali è arrivato il mo¬ 
mento della manutenzione. 


Configurazione 

Il programma è stato messo a punto 
su un Apple //e ed è stato eseguito su 
un Apple II Plus. Richiede un solo 
dischetto, mentre la stampante è fa¬ 
coltativa, ma utile per stampare l’elen¬ 
co delle operazioni di t manutenzione. 
Il programma è strutturato in modo 
che supporti una stampante del tipo 
Apple Silentype, Prowriter, Image- 
writer o Dot Matrix Printer. Eventual¬ 
mente potete adattare la linea 2090 


perché supporti la stampante che ave¬ 
te a disposizione. 

Per usare AUTOPIU’ basta digitare 
il programma in Applesoft-BASIC 
del listato 1. 

Immissione di dati 

Questo passo sarà il più arduo e 
quello che richiederà il maggior tem¬ 
po , se si esclude la digitazione del pro¬ 
gramma. Occorrerà trovare il manua¬ 
le dell’auto e gli ultimi dati di manu¬ 
tenzione. Sulla base del manuale della 
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macchina si deve compilare una lista 
delle voci per le quali si desidera il 
servizio a intervalli periodici (per 
esempio olio, filtro dell’olio, filtro del¬ 
l’aria, pneumatici, messa a punto del 
motore, freni, liquido dei freni, liqui¬ 
do dello sterzo, liquido della trasmis¬ 
sione, batteria e via dicendo). A fian¬ 
co di ciascuna voce indicate se deside¬ 
rate cambiarla o esaminarla. Poi ag¬ 
giungete la data dell’ultima revisione 
periodica (mese e anno) e la lettura del 
contachilometri. Se non conoscete la 
lettura iniziale del contachilometri, 
stimate la distanza che percorrete 
mensilmente e fate il calcolo del chilo- 
metraggio risalendo fino alla data del¬ 
l’ultima manutenzione, in modo di 
avere una stima approssimativa ma 
non troppo lontana dal vero. Sulla ba¬ 
se del manuale annotate il chilome¬ 
traggio e i mesi raccomandati per cia¬ 
scuna voce come intervallo fra una re¬ 
visione periodica e la successiva. 
Quando avrete raccolto queste infor¬ 
mazioni, sarete pronti a creare il vo¬ 
stro primo file di manutenzione perio¬ 
dica. 

Struttura dei dati 

Tutti i dati sono memorizzati sul di¬ 
schetto in un file di testo ad accesso 
casuale creato con il NOME DEL¬ 
L’AUTO. Il file è denominato FILE 
DI MANUTENZIONE, e può com¬ 
prendere un massimo di 50 VOCI DI 
MANUTENZIONE. A ogni VOCE 
DI MANUTENZIONE sono associa¬ 
te sette variabili stringa: nome della 
VOCE DI MANUTENZIONE, flag 
di CONTROLLO/ISPEZIONE, 
CHILOMETRI MANUTENZIO¬ 
NE, LETTURA CHILOMETRI, 
MESE MANUTENZIONE, DATA 
MANUTENZIONE, e NOTE 
EVENTUALI. Ognuna delle VOCI 
DI MANUTENZIONE è memorizza¬ 
ta nella matrice CK$ e nel FILE DI 
MANUTENZIONE sul dischetto. 

Creazione del file 
di manutenzione 

Quando si esegue il programma vie¬ 
ne da principio presentato il seguente 
menù principale: 


1. CREA FILE 

DI MANUTENZIONE 

2. EDITA FILE 

DI MANUTENZIONE 

3. ELENCO OPERAZIONI 
DI MANUTENZIONE 




4. AGGIORNA 
DATA/CHILOMETRI 

5. FINE 


Dopo aver scelto l’opzione 1 per 
creare il file di manutenzione, il com¬ 
puter chiede di introdurre il nome del 
file auto. Questo nome verrà usato per 
creare un file di testo ad accesso casua¬ 
le. Se si vuole in epoca successiva cam¬ 
biare il nome del file, basta usare il 
comando RENAME del DOS nel mo¬ 
do di comando diretto. Premendo il 
tasto RETURN si torna da questo 
punto al menù principale. 

Introducendo la parola CATALOG 
si potrà vedere quali nomi di file auto 
si hanno sul dischetto. Questo sistema 
funziona ogni volta che il programma 
chiede il NOME DEL FILE AUTO. 
Dopo avere introdotto un nome di file 
auto (per esempio FIAT ARGENTA) 
si vedrà questa schermata: 


D) INTRODUCI DATI 

MANUTENZIONE O E) ESCI 

1. VOCE DI MANUTENZIONE: 

2. C) CAMBI O I) ISPEZIONI: 

3. CHILOMETRI 

DI MANUTENZIONE 


4. LETTURA CHILOMETRI 
(ULTIMO C/IQ 

5. MESE MANUTENZIONE: 

6. DATA (ME/AN—ULTIMO C/l): 

7. NOTE: 


Il programma chiede dapprima se si 
desidera INTRODURRE DATI o FI¬ 
NIRE. Quando si sceglie D per intro¬ 
durre dati si comincerà introducendo 
le sette voci di dati elencate. Il campo 
della VOCE DI MANUTENZIONE 
è lungo 20 caratteri e richiede un’in¬ 
troduzione di testo (per esempio tergi¬ 
cristallo, pressione pneumatici e così 
via). La voce di dati seguente stabili¬ 
sce se la VOCE DI MANUTENZIO¬ 
NE deve essere cambiata o ispeziona¬ 
ta, e richiede come risposta Col. 

Il campo dei CHILOMETRI DI 
MANUTENZIONE è lungo cinque 
caratteri e richiede i chilometri percor¬ 
si fra una manutenzione e la successi¬ 
va, e non accetterà meno di 1000 chilo¬ 
metri. La voce di dati numero quattro 
è la LETTURA CHILOMETRI (sul 
contachilometri) all’epoca in cui è sta¬ 
ta fatta l’ultima volta la manutenzione 
per questa VOCE DI MANUTEN¬ 
ZIONE. Il campo del contachilometri 


è lungo sei caratteri e non accetta lo 
zero. Il campo MESE DI MANU¬ 
TENZIONE serve a memorizzare il 
mese in cui effettuare una determinata 
operazione di manutenzione, se que¬ 
sta è indipendente dai chilometri per¬ 
corsi. L’inserimento richiede un for¬ 
mato di ME/AN di cinque caratteri: 
per esempio 04/83 (i mesi di una sola 
cifra devono essere preceduti dallo ze- 
ro). 

Il campo delle NOTE è lungo 20 
caratteri e serve per memorizzare an¬ 
notazioni riguardanti la VOCE DI 
MANUTENZIONE (per esempio 
una marca e tipo particolare di olio, o 
il numero di ricambio di un determina¬ 
to pezzo, come il filtro dell’aria, ecc.). 
Né VOCE DI MANUTENZIONE né 
NOTE accettano virgole o due punti. 

Una volta introdotte eventuali note, 
saranno presentate sullo schermo le 
opzioni di E) editare una qualsiasi del¬ 
le voci di dati, R) REGISTRARE i 
dati, C) CANCELLARE (eliminare) i 
dati e X) USCIRE. Quando si esce si 
avrà un’occasione di salvare i dati pri¬ 
ma di ritornare al MENU’ PRINCI¬ 
PALE. Di norma si usa R) per indica¬ 
re che si è soddisfatti dei dati e pronti a 
introdurre la successiva VOCE DI 
MANUTENZIONE. Usando l’opzio¬ 
ne R) si inviano i dati al file sul dischet¬ 
to e si pulisce lo schermo. Il cursore si 
posiziona allora alla fine della riga D) 
INTRODUCI DATI MANUTEN¬ 
ZIONE o E) ESCI. Una risposta di E) 
rimanda al MENU’ PRINCIPALE, e 
il FILE AUTO viene chiuso da CLO- 
SE. Quando si sono introdotte tutte le 
VOCI DI MANUTENZIONE si può 
terminare l’immissione di dati con E) 
o con X. 

Correzioni e aggiunte 

Si può intervenire nel file di manu¬ 
tenzione per aggiungere voci nuove o 
per effettuare correzioni in quelle già 
esistenti scegliendo l’opzione 2, EDI¬ 
TA FILE MANUTENZIONE. Con 
questa opzione è possibile anche stam¬ 
pare la lista delle operazioni di manu¬ 
tenzione da effettuare. 

Quando si sceglie questa opzione, il 
programma chiede il NOME DEL FI¬ 
LE AUTO che si vuole EDITARE. 
Se il file richiesto esiste effettivamente 
in memoria, viene visualizzato il se¬ 
guente MENU’ DI EDITING: 


1. CAMBIA DATI 
MANUTENZIONE 


2. AGGIUNGI VOCI 
MANUTENZIONE 
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3. CANCELLA VOCI 

MANUTENZIONE 

4. ELENCO VOCI 

DATI MANUTENZIONE 

A questo punto l’introduzione di un 
RETURN rimanderà al MENU’ 
PRINCIPALE. Per utilizzare le op¬ 
zioni CAMBIA DATI MANUTEN¬ 
ZIONE e CANCELLA VOCI MA¬ 
NUTENZIONE si deve conoscere il 
numero della VOCE DI MANUTEN¬ 
ZIONE: potete facilmente appurare 
qual è scegliendo l’opzione 4, LISTA 
VOCI MANUTENZIONE/DATI. 
Quest’opzione apre a video la presen¬ 
tazione del seguente menù STAMPA 
INDICI: 


1. STAMPA LISTA VOCI 
DI MANUTENZIONE 


2. STAMPA DATI VOCI 
DI MANUTENZIONE 

3. STAMPA ELENCO 
OPERAZIONI 


Per tutte le opzioni è possibile la 
stampa sul video (che viene attivata 
con V) oppure la stampa su carta (che 
viene attivata con S). L’opzione 1 of¬ 
fre l’indice delle voci di manutenzio¬ 
ne, cioè l’elenco delle voci di manu¬ 
tenzione con i relativi numeri. L’op¬ 
zione 2 presenta i DATI DI MANU¬ 
TENZIONE per ogni singola VOCE 
DI MANUTENZIONE. L’opzione 3 
elenca tutte le operazioni di manuten¬ 
zione da effettuare con i relativi dati. 
Con RETURN si torna dal menù di 
STAMPA INDICI al MENU’ DI 
EDITING. 


Quando viene scelta la terza opzio¬ 
ne, per avere la lista delle operazioni 
di manutenzione da compiere, il com¬ 
puter chiede quanti chilometri segna 
al momento il contachilometri dell’au¬ 
to, la data sotto forma di mese e anno 
(ME/AN) e se si vuole stampare l’e¬ 
lenco a video (V) o su carta (S). A 
questo punto il programma esegue au¬ 
tomaticamente un controllo e quindi 
elenca le operazioni di manutenzione 
che devono essere efettuate o perché 
l’auto ha percorso il chilometraggio in¬ 
dicato nella tabella di manutenzione 
per quelle determinate operazioni op¬ 
pure perché è scaduto il tempo d’inter¬ 
vallo tra una manutenzione e l’altra. 
Completata la lista, si può tornare al 
MENU’ PRINCIPALE. 

Attenzione, però: il richiedere la li¬ 
sta delle operazioni di manutenzione 


LISTATO 1 


10 REM a********************** 

20 REM « AUTORI ; j ' * 

30 REM « 01 UOODY AOAMSON * 

40 REM * COPYRIGHT (0 1985 * 

50 REM * BY APPLICANDO & * 

60 REM * MICR0SPARC, INC. * 

70 REM *********************** 

80 0NERR GOTO 170 

90 CSI = Bi :DI = CHRI (4): DIM CKK5Q.7): 60SUB 2110 
100 HOME : JET : VTAE 2: HTAB 13: PRIN7 “AUTORI U 
VTAB 6: PRINT •MENU-' PRINCIPALE" 

110 VTAB 8: HTAB i: PRINT T. CREA FILE MANUTENZIONE”: PRINT 

*2. EDITA FILE MANL'ENZIQNE": PRINT '3. ELENCO 0PERAZI0 
NI DI MANUTENZIONE’ 

120 PRINT s 4. AGGIORNA DATA/CHILOMETRI 8 : PRINT "5. FINE" 

130 VTAB 15: HTAB 1: CAI-. - 868: PRINT -SCEGLI >*:: GET Al 
: PRINT A$:A = VAL (Al): IF A < 1 OR A > 5 THEN 130 
140 0N A G0SU6 650,850,230,440,160 
150 GOTO 100 

160 G0SUB 1910: END 

170 REM ROUTINE DI ERRORE 

180 ER = PEEK (222):LN = PEEK (218) ♦ 256 * PEEK (219) 

190 IF ER = 6 AND LN = 700 THEN 740 

200 IF ER = 6 AND LN = 2000 THEN POP : RETURN 

210 IF ER = 22 T HEN 100 

220 POKE 216,0: RÉSUMÉ 

230 REM ELENCO OPERAZIONI DI MANUTENZIONE 

240 HOME : VTAB 2: PRIN T "CREA PROMEMORIA MANUTENZIONE:* 

250 VT = 5: GOSUB !960:VT = 7: GOSLB 2010:VT = 11: GOSUB 208 
0 

260 LTAB 2: HTAB 1: DALL - 958: PRINT SPC( 5):*ELENCO SCA 
DENZE MANUTENZIONE: ": PRINT SPC( 5)CFI: PRINT 
270 X = 0:MO = 'UAL (DAI) :YR = ‘UAL < RIGHTI (DAI .2»: PRINT 
: PRINT SPC( 5);*DATA: B ; DAI ; SPC( 5);*CHILÒMETRI : *;0 
DI: PRINT 

280 FOR I = 1 T0 RG:FL = 0: IF 'UAL (CKKL4)) > OD THEN PRINT 
DI:"PR#C": PRINT : INVERSE : PRINT “LETTURA CQNTACHILOM 
ETRI ERRATA' 8 : PRINT 'VOCE MANUTENZIONE N.'sl: PRINT *1 
CHILOMETRI INTRODOTTI (" : OD ; *) B 
290 IF VAL (CKK1.4) ) ) OD THEN PRINT 'SONO INFERIORI ALL 
'ULTIMA LETTURA": PRINT "DEL CONTACHILOMETRI CjCKKI.4 
)!")": NORMAL : PRINT : PRINT "FINE LISTA: 8 :! = R0: GOTO 
430 

300 IF (00 - VAL (CKKI ,4))) = > VAL (CKKI, 3)) THEN FL = 

1 

310 MI = VAL (CKKI ,6)) :Y1 = 'UAL ( RIGHTI (CKKI .6).25) 

320 IF Y1 ) YR THEN PRINT BI; M PR#0 L! : PRINT : INVERSE : PRINT 
“ANNO ERRATO' VOCE MANUTENZIONE N. 8 ;I : PRINT VANNO IN 
TRADOTTO (' :YR; E ) E' INFERIORE 8 : PRINT 'ALL'ULTIMO AGGI 
ORNAMENTO *Y1 ; 8 ) 8 : NORMAL : PRINT : PRINT "FINE LISTA! 

“:I = R0: GOTO 430 

330 IF Y1 = YR AND MI > MG THEN PRINT DKTPRIO 8 : PRINT : 
INVERSE; PRINT -MESE ERRATO! VOCE MANUTENZIONE N.";I: 

PRINT "LA DATA INTRODOTTA ( 8 ;DAI; 8 ) E ' INFERIORE 8 : PRINT 


•ALL'ULTIMO ABfilORWWENTO ( 8 :CKI(1.6):*)*s NORMAL : 

PRINT ! PRINT 'FINE LISTA' 8 :1 = R0: GOTO 430 
340 DM = M0 - MI:DY = YR - YI: IF DY > 0 T HEN DM * DM ♦ (12 * 


DY) 

350 IF DM = ) VAL (CKKI,5)) THEN 370 
360 IF FL = G THEN 430 

370 X = X * 2: IF P* = *S* THEN PRINT 3PC( 55: 8 CK 8 ; CHRI ( 
95): CHRI (95): CHRI (95): 8 8 : 

380 IF CKKI,2) = *C 8 THEN PRINT SPC( 4 - LEN < STRI 
<I))):*CaMBI 8 : 

390 IF CKKI.2) = M s THEN PRINT l; 8 . 8 ; SPC-( 4 - LEN ( STRI 
( I) ) ) ; "1 bPEZ 10NI/C0N7RQLL I 

400 PRINT CKKI,1): IF CKKI ,D < > 88 THEN PRINT SPC( 1 
2) ; "NOTE : ":CKKI.7):X = X ♦ 1 

410 IF X = > 14 AND PI = 8 V 8 THEN X = 0:VT = 22: GOSUB 205 
0: VTAB 4: HTAB 1: CALL - 958 
420 IF PI = 8 V 8 THEN PRINT 

430 NEXT I: PRINT CHRI (12): PRINT D$; 8 PR#0 8 :VT = 22: GOSUB 
2050: RETURN 

440 REM AGGIORNA MANUTENZIONE DATA/CHILOMETRI 
450 HOME : VTAB 2: PRINT "AGGIORNA, MANUTENZIONE DATA/CH1LQM 
ETRI: 1 * 

460 VT = 5: GOSUB I960 
470 'UT = 7: GOSUB 2010 

48C X = Q:Y = 1: VTAB 5: HTAB 1: CALL - 958 

490 FOR I = 1 TO RG :X = X 4 l; PRINT I; 8 . 8 sCKKI,1) 

500 IF X = 15 THEN GOSUB 530 :Y = Y 4 15: VTAB 5: HTAB I: CALL 
- 958 :X = 0 

510 NEXT I: IF X ) 0 THEK4 GOSUB 530 
520 GOSUB 1840: FOR R = 1 T0 R0: GOSUB 1930: GOSUB 1870: NEXT 
R: GOSUB 1910: RETURN 

530 VTAB 21: HTAB 1: CALL - 956: PRINT "INTRODUCI IL N. DE 
LLA MANUTENZIONE 8 : PRINT "(Da 8 ;Y: 8 A * :Y ♦ X - 1 ; * ) 8 ; 

540 VTAB 22: HTAB 21: PRINT "<£ PER'FINIRE) : NORMAL : VTAB 


21: HTAB 36: CALL - 863: INPUT 9fl ;AI:À = 'UAL (Al): IF 
Al = E E" THEf4 RETURT4 
550 IF A < 0 THEN 630 
560 IF A < Y OR A > Y 4 X - 1 T HEN 540 
570 MO = VAL (DAI) :YR = VAL ( RIGHTI (DAI.2)):M1 = VAL (C 
KKA,6)):Y! = 'UAL ( RIGHTI (CKI(A,6),2)):0D = 'UAL (OD 
!):Q1 = VAL (CKKA.4)) 

580 IF OD < 01 THEN VTAB 21: HTAB ! : CALL * 958: PRINT CHRI 


(7): : INVERSE : PRINT "ERRORE LETTURA CONTACHILOMETRI - 
ATTUALE > ULTIMA MANUTENZIONE! 8 : NORMAL :VT = 23: GOSUB 
2050: GOTO 530 

590 IF YR < YI THEN VTAB 21: HTAB 1 : CALL - 958: PRINT CHRI 
(7);: INVERSE : PRINT "AMO ERRATO - ANNO ATTUAlE < U 
LTIMA MANUTENZIONE: 8 : NORMAL :VT = 23: GOSUB 2050: GOTO 
530 

600 IF MO < MI AND YR = YI THEN VTAB 21: HTAB I: CALL - 9 
* 58: INVERSE : PRINT CHRI (7);"MESE ERRATO - ATTUALE < 
ULTIMA MANUTENZIONE! 8 : NORMAL :VT = 23: GOSUB 2050: GOTO 
C '3G 

610 VTAB (A - Y 4 5): HTAB 1: INVERSE : PRINT A;: NORMAL 

620 CKI(A,4) = ODI:OKI(A, 6) = DAI: GOTO 540 


Continua 
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da eseguire non aggiorna automatica- 
mente i dati delle varie voci di manu¬ 
tenzione, in quanto non è detto che la 
manutenzione di quelle voci venga 
eseguita immediatamente; l’aggiorna- 
mento, infatti, deve essere eseguito 
servendosi dell’opzione 4 del menù 
principale. 

Aggiornamenti 

La scelta dell’opzione 4 del menù 
principale, AGGIORNA DATA- 
/CHILOMETRI, permette di intro¬ 
durre una specifica DATA (ME/AN) 
e la LETTURA DEL CONTACHI¬ 
LOMETRI, e di aggiornare con questi 
nuovi dati determinate voci di manu¬ 
tenzione. 

Sullo schermo vengono visualizzate 
un massimo di 15 voci di manutenzio¬ 
ne. Basta introdurre il numero corri¬ 
spondente a una determinata opera¬ 
zione di manutenzione, effettuata nel¬ 
la data corrente, e la lettura del conta- 
chilometri. Il numero accanto alla vo¬ 
ce di manutenzione viene cambiato in 
CAMPO INVERSO a indicare che è 
stato selezionato. 

Per rimediare a un eventuale errore 
introducete il numero di voce con un 
segno negativo (—) davanti. In questo 
modo viene eliminato l’INVERSO e si 
accede al dischetto per il recupero dei 
vecchi dati. Una volta completato l’ag¬ 
giornamento di questa prima pagina di 
dati, l’opzione E) fa passare alla pagi¬ 
na successiva, nella quale compaiono 
altre 15 voci di manutenzione. Quan¬ 
do l’aggiornamento è completo, tutti i 
nuovi dati vengono memorizzati su di¬ 
schetto e si torna al MENU’ PRINCI¬ 
PALE. 

Il tasto RETURN 


AUTOPIU’ è stato scritto in modo 
che riconosca un RETURN di risposta 
a una richiesta di scelta di menù come 
"ritorno all’ultimo menù", di modo che 
si possa usare il tasto RETURN per 
uscire dai vari sottomenù. Tuttavia un 
RETURN non è riconosciuto in que¬ 
sto modo quando vengono chieste spe¬ 
cifiche informazioni (per esempio da¬ 
ta, lettura del contachilometri, dati di 
servizio e così via). La sola eccezione è 
la richiesta del NOME DI FILE DEL¬ 
L’AUTO, dato che in questo caso un 
RETURN rimanderà al MENU’ 
PRINCIPALE. 

Come funziona 

La parte più difficile della progetta¬ 
zione del programma è stata quella 
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della formulazione di schermate che 
fossero interattive con l’utente, ma 
semplici da usare. Quando si fa girare 
il programma, viene impostato dalla 
linea 80 il flag ONERR, sono dichiara¬ 
ti alcuni valori iniziali e viene predi¬ 
sposta, per contenere il FILE DI MA¬ 
NUTENZIONE, la matrice bidimen¬ 
sionale CK$. Poi viene presentato il 


MENU’ PRINCIPALE, sul quale si 
può scegliere se creare, editare, listare 
o aggiornare tutta una serie di opera¬ 
zioni di manutenzione. 

Viene usato un ON GOSUB per in¬ 
dirizzare il programma alle diverse 
routine. Chi usa per la prima volta il 
programma deve introdurre la subrou¬ 
tine CREA FILE DI MANUTEN- 


Punto per punto 
la manutenzione 
ogni 10.000 chilometri 


TABELLA 1 


1. Sostituire filtro aria. 

2. Sostituire olio motore. 

3. Sostituire filtro olio. 

4. Pulire o sostituire filtro carburatore. 

5. Pulire o sostituire candele. 

6. Pulire o sostituire puntine. 

7. Controllare accensione. 

8. Regolare punterie. 

9. Controllare carburatore. 

10. Controllare olio ponte e cambio. 

11. Controllare freni. 

12. Controllare pneumatici. 

13. Controllare assetto ruote. 

14. Controllare raccordi flessibili fluido freni. 
15 Controllare circuito idraulico frizione. 

16. Controllare cinghia ventilatore. 

17. Controllare sistema di raffreddamento. 

18. Controllare apparecchiature elettriche. 

19. Controllare posizione fari. 

20. Controllare tiranti sterzo. 

21. Controllare livelli fluidi. 

22. Controllare valvola sfiato basamento. 

23. Registrare il minimo. 

24. Registrare miscela aria-benzina. 

25. Controllare valvola sfiato basamento. 


Il programma Autopiù è disponibile su dischetto . Per ordinarlo 
utilizzate il tagliando pubblicato nella rubrica Disk Service. Il di¬ 
schetti contiene già memorizzata la tabella riportata qui sopra. 














ZIONE per cominciare a costituire i 
file di servizio. Questa routine comin¬ 
cia a linea 650. Mentre c’è una subrou¬ 
tine per introdurre un NOME DI FI¬ 
LE AUTO (linea I960) la funzione di 
questa routine è duplicata alle linee 
670-690 in modo che possa essere im¬ 
pedita la duplicazione dei nomi di file. 
Questo avviene con il comando VE- 


RIFY a linea 700. Se la verifica ha 
esito positivo, il file esiste già e viene 
data all’utente l’opzione di sostituirlo. 
Se non esiste si avrà un errore di FILE 
NOT FOUND e la trappola d’errore 
(linee 170-220) invierà il programma 
a linea 740 per la costituzione del nuo¬ 
vo file. 

La variabile CF$ è usata per il NO¬ 


ME DI FILE AUTO, ed è utilizzata 
per aprire (con OPEN) il nuovo file a 
linea 740. Se il file fosse esistito in 
precedenza, e la sostituzione fosse sta¬ 
ta approvata, la linea 730 lo avrebbe 
cancellato. Viene poi istituita dalla li¬ 
nea 750 la schermata dei DATI DI 
MANUTENZIONE mediante un 
GOSUB alla linea 1570. 


Cinture di 
sicurezza 


Liquido Fluido 

del radiatore de' * rerìl 


Livello 

Olio motore Parabrezza 



Tergicristallo 


elettrici 


Batteria 


Serrature 


Serratura 
dpi cofano 


Freni 


Ruote 


Luci 


Sistema di 
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Routine di input 

Il primo gruppo di routine di input si 
trova alle linee 1950-2100, e consiste 
in: NOME FILE AUTO, PREMI UN 
TASTO QUALSIASI, CHILOME¬ 
TRI, DATA, SCELTA e V) VIDEO 
O S) STAMPANTE. La subroutine 


NOME FILE AUTO a linea 1960 usa 
la variabile VT per determinare dove 
andare con VTAB. Una volta intro¬ 
dotto il nome del file auto CF$ esso 
viene immediatamente controllato a 
linea 1960 per vedere se cominci "ille¬ 
galmente" con un carattere numerico. 
La linea 1970 controlla se ci sia un 
RETURN, in caso affermativo, gene¬ 


ra un POP e torna al menù principale. 
La linea successiva controlla se ci sia la 
stringa di input CATALOG; se la in¬ 
dividua genera il catalogo. 

A linea 1990 il nome di file auto CF$ 
viene confrontato con il vecchio nome 
di file auto CS$. Se CF$=CS$ viene 
generato un RETURN dalla subrouti¬ 
ne, con il bypass del VERIFY e del 


630 B = ABS (A): 1F B < : OR B > Y t X ♦ 1 THEN 540 
640 VTAB (B - Y ♦ 5): HTA6 1: PRIMI B:R = B: VTAB 21: HTAB 
3ó: GOSUB 1340: 60SUB 1860:CK*(B,4) = R*(45:CK*(B,6) = 

Hi 6)i GOTO 540 

ó50 REM CREA FILE MANUTENZIONE 

660 HOME : PRIMI "AUT0P1U' - INIZIALI2ZAZIQNE FILE:'' 

6?0 VTAB 3: HTAB 1: CALI - 958: INPUT • INTRODUCI NOME FILE 
AUTO > 8 ;CF*: IF 'VAL <CF$) < > 0 THEN 670 
680 IF CF* = 88 THEN RETURN 

690 IF CF* = 8 CATALOG" THEN PRIMI M; 8 CATALOG s :VT = 22: GOSUB 
2050: GOTO 660 
700 PRINT D*: 8 VERIFY 8 :CF* 

710 VTAB 5: HTAB 1: PRINT 'IL FILE ESISTE GIÀ', VUOI SOSTI! 
UIRL0? (S/N) : 6ET A*: PRINT A*: IF A* = 8 N B THEN 6 

60 

720 IF A* < > "S" THEN 710 
730 GOSUB 1890 

740 GOSUB 1840 

750 GOSUB 1570: VTAB 4; HTAB 1: CALL - 868: PRINT 8 D) 1NTR 

0DUC1 I DATI 0 E) ESCI )":: GEI A*: PRINT A*: IF A* = " 

E* THEN GOSUB 1530: RETURN 
760 IF A* < > , D 8 THEN 750 

770 F0R J = 1 T0 7: QN j GOSUB 1610,1640,1660,1690,1720,174 
0.1790: NEXT J 

780 8ÒSUB 1810: GOSUB 1820:CD = ‘VAL (COI): IF CD > 0 THEN 
0N CD GOSUB 1610.1640,1660,1690,1720,1740,1790 
790 IF CD > 0 THEN 780 

800 IF CD* = "R* THEN R0 = R0 ♦ 1:R = R0: GOSUB 1870: GOSUB 
1940: GOTO 750 
810 IF CD* = "C" THEN 750 

320 IF CD* = ‘X 8 THEN VTAB 21: CALL - 958: PRINT "VUOI SA 
lVARE I DATI? (S/N) > r :: GEI A*: PRINT A*: IF A* = S S" THEN 
R0 = R0 + i:R = RD: GOSUB 1870: GOSUB 1880: RETURN 
830 IF A* = "N" THEN GOSUB 1880: RETURN 
840 GOTO 789 

850 REM EDITA FILE MANUTENZIONE 

860 HOME : VTAB 2: PRINT 'EDITA -ILE MANUTENZI ONE : 8 

870 VT = 4: GOSUB 1960 

880 HOME : VTAB 2: PRINT "MENU' EDITING FILE MANUTENZIONE:" 


390 VTAB 3: HTAB 1: CALL - 958: PRINT "FILE MANUTENZIONE A 
UTO: " :CF* s VTAB 5: HTAB 1: PRINT "I. CAMBIA DATI MANUT 
ENZI ONE 8 : PR!N T E 2. AGGIUNGI VOCI MANUTENZIONE": PRINT 
"3. CANCELLA VOCI MANUTENZ I ONE : : PRINT "4. ELENCO VOCI/ 
DATI MANUTENZIONE" 

900 VT = 10: GOSUB 2060: IF A < 1 OR A > 4 THEN 900 
910 0N A GOSUB 930,1060,1080,1230 
920 GOTO 880 

93C REM CAMBIA DATI VOCE RITENZIONE 

940 HOME : VTAB 2: INVERSE : PRINT r CAMBIA DATI RUTENZIO 
NE:": NORMAL 

950 VTAB 4: HTAB 1: CALI - 958: VTAB 4: INPUT "INTRODUCI I 

L N. DELLA MANUTENZIONE )";1N*:IN = VAL (IN*):R = IN: IF 

IN* = "" THEN RETURN 
960 IF IN ' 1 OR IN > R0 THET4 950 

970 GOSUB 1570: GOSUB 1930: VTAB é: HTAB 18: PRINT SI*: VTAB 

3: HTAB 25: PRINT CK*: ‘VTAB 10: HTAB 22: PRINT MI*: VTAE 

12: .HTAB 30: PRINT OD*: VTAB 14: HTAB 23: PRINT MO* 

980 'VTAB 16: HTAB 25: FRINÌ DA*: VTAB 18: HTAB 10: PRINT SN 

*: GOSUB 1810 

990 GOSUB 1320: CD = 'VAL (CD*): IF CD > 0 THEN 0N CD GOSUB 
1610,1640,1 660 ,1690, 1 720,1740, 1 790 
1000 IF CD > li THEN 990 

1010 IF CD* = B R* THEN R = IN: GOSUB 1840: GOSUB 1870: GOSUB 
1910: GOSUB 1940: VTAB 21: HTAB 1: CALL - 958: PRINT * 
UN'ALTRA? (S/N))";: SET A*: PRINT A*:CD* = A*: IF A* = 

’S R THEN 950 

IF CD* = "C 8 THEN RETURN 


1020 

1030 


IF CD* = "X" THEN VTAB 21 
"VUOI SALVARE I DATI 7 (S/"‘ 
A*: IF A* = *S 8 THEN CD* 


B 21: HTAB 1: CALI - 958: PRINT 
S/N) ) * ; : SET A*: PRINT A*:CD* = 


GOTO 1010 


1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 


1200 

1210 

1220 

1230 

1240 


1250 

1260 

1270 

1280 

1290 

1300 


1310 

1320 

1330 

1340 


1350 

1360 

1370 

1380 

1390 

1400 

1410 


IF CD* = "N 8 THEN RE T URN 
6G3UB 1310: GOTO 990 
REM AGGIUNGE VOCE MANUTENZIONE 
GOSUB 1340: GOTO 750 
REM CANCELLA 'VOCE MANUTENZ IONE 
h H 0ME : VTAB 2: PRINT r CANCELLAZIONE VOCE MANUTENZIONE: 

VTAB 5: HTAB 1: PRINT "FILE MANUTENZIONE : ":CF* 

'VTAB 7: HTAB 1 : CALL - 958: INPUT "INTRODUCI IL N. DE 
LLA 'VOCE >" :IN*:1N = VAL (IN*): I- IN* = "" THEN 1210 
IF IN < 1 OR IN > R0 THEN 1110 
VTAB 9: HTAB 1: PRINT IN; 8 )";CK*(IN,1) 

VTAB li: HTAB 1: CALL -'368: PRINT "CONFERMI? (S/N) > 

*:: GEI A*: PRINT A*: IF A* = °N" THEN 1110 
IF A* = 88 THEN 1210 
IF A* < > 8 S 8 THEN 1140 
IF IN = R0 THEN R0 = R0 - 1 : GOTO 1190 
FOR I = (IN + 1) TO RG: FOR J = 1 TO 7:CK*<(I - 1),J) = 
CK*(I ,J) : NEXT J: NEXT I :R0 = R0 - 1 
l VTAB 13: HTAB 1 : CALL - 868: PRINT "CANCELLAZIONE AW 
ENUTA - UN'ALTRA? (S/N))";: GEI A*: PRINT A*: IF A* = " 

S" T HEN 1110 

IF A* < > "N" THEN 1190 

GOSUB 1890: GOSUB 1840: GOSUB 1880: GOSUB 1840: FOR R = 

1 T0 R0: GOSUB 1930 
GOSUB 1870: NEXT R: RETURN 
REM ELENCO VOCE DATI MANUTENZIONE 
VTAB 5: HTAB 1: CALL - 958: PRINT B l. STtflPA ELENCO V 
OC! MANUTENZIONE": PRINT n 2. STAMPA DATI VOCI MANUTENZ1 
ONE": PRIN T *3. STAMPA ELENCO OPERAZIONI" 

VT = 10: GOSUB 2060: IF A (1 OR A ) 3 THEN 1250 
QN A GOTO 1280.1340,1440 
REM ELENCO INDICE VOCI MANUTENZIONE 
'VT = 10: GOSUB 2080 

IF H = B S" THEN PRINT SPC( 5);"INDICE VOCI MANUTENZ 
IONE:" 

VTAB 5: HTAB 1: CALL - 958 :X = 3: FOR I = ! T Q SO: PRINT 
SPC: 5);I;\ ";CK*(I.1):X = X M: IF X = 15 AND P* = 

"V 8 THEN X = 0:VT = 22: GOSUB 2050: VTAB 5: HTAB 1: CALL 
- 953 

NEXT I: PRINT CHR* (12): PRINT D*; 8 PR#0 8 :VT = 22: GOSUB 
2050: GOTO 1240 

VT = 22: GOSUB 2050: GOTO 1240 
REM ELENCO DATI MANUTENZIONE 
VTAB 5: HTAB 1: CALL - 958: INPUT "INTRODUCI IL N. DE 
ILA MANUTENZIONE >";N*:N = VAL (N$): IF N < 1 OR N > R 
0 T HEN 1240 

VT = 7: GOSUB 2080: VTAB 5: HTAB 1: CALL - 958: PRINT 
SPC( 5);"MANUTENZIONE N. 8 :N 

PRINT : PRINT SPC( 5);"fVWUTENZICME: 8 :CK*(N,1): IF C 
K*(N,2) = 8 C R THEN PRINT : PRINT SPC( 55;"CAMBIO OGNI 


" THEN PRINT : HTAB 6: PRINT "ISPEZ.O 
CHILOMETRI,*: PRINT SPC( 5) ;"0 ";CK* 


;420 

1430 

1440 

1450 


1460 


IF CK*(N,2) = " 

GNI 8 : 

PRINT CK*(N,3); 

(N.5):’ MESI. r : 

IF CK*(N,2) = 1 C" THEN PRINT 8 CM8!0 AVVENUTO " 

IF CK*(N.2) = "I" THEN PRINT "ISPEZIONE AVVENUTA " 

PRINT SPC( 5); B IL ":CK*(N,6)A ":CK*<N,4)j" KM,": PRINT 
: PRINT SPC( 5);" NOTE: 8 ;CK*(N,7): PRINT CHR* (12): PRINT 
D*;‘PRJ0 8 

VT = 22: GOSUB 2050: GOTO 1240 
REM SOMMARIO FILE MANUTENZIONE 
HOME : VTAB 2: PRINT "SOtflARIQ FILE MANUTENZIONE: 8 :VT = 

4: GOSUB 2080: IF P* = 8 V 8 THEN 1480 
PRINT SPCC 2);"SCW)RI0 FILE MANUTENZIONE: ":CF*: PRINT 
PRINT SPC < 2):“N ./ VOCE": SPC< 14>i"C/I"; SPC< 2):“D 
iTA 8 ; SPC( 5)s"Kn. B ; SPC( 5;;“MESI * ; SPC( SPC( 


«i'WTE': PrIn 
FOR i = 1 TO R0 


PRINT SPC< 2) il jCKKI,!) ; : POKE 


Continua 
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READ del dischetto di linea 2000. 
Questo bypass elimina gli accessi non 
necessari al dischetto, dato che il FILE 
DI MANUTENZIONE desiderato è 
già in memoria. Prima di lasciare que¬ 
sta subroutine si imposta CS$ al valore 
di CF$, al fine di predisporre il bypass 
per la volta successiva. 

La sola altra routine di input isolata 
è quella degli input dei DATI DI MA¬ 
NUTENZIONE, situati alle linee 
1610-1800. La routine è stata ideata 
per separare i complessi input di scher¬ 
mo occorrenti per la schermata di in¬ 
troduzione dei DATI DI MANU¬ 
TENZIONE. Poiché i dati introdotti 
dall’utente avrebbero avuto la forma 
di CHILOMETRI, LETTURE DI 
CONTACHILOMETRI e DATA si 
sarebbe potuto scrutinare rigorosa¬ 
mente l’arco delle risposte previste, 
allo scopo di ridurre gli errori di im¬ 
missione. 

I due soli input a "testo libero" sono 
VOCI DI MANUTENZIONE e NO¬ 
TE EVENTUALI (linee 1610 e 1790). 
L’unica restrizione posta a queste im¬ 
missioni è consistita nel limitarle a 20 
caratteri. 

Le routine 
del dischetto 

Le routine del dischetto sono situate 
alle linee 1830—1910, e consistono 
fondamentalmente nelle istruzioni 
OPEN, READ, WRITE, CLOSE e 
DELETE necessarie per accedere ai 
FILE DI MANUTENZIONE sul di¬ 
schetto. La struttura del file sul di¬ 
schetto è quella di un file di testo ad 
accesso casuale con una lunghezza di 
record di 87, e con il Record 0 che 
contiene il numero delle voci del file. 

Con le routine del dischetto predi¬ 
sposte come subroutine basta sceglier¬ 
le come si farebbe sul menù di un risto¬ 
rante per ottenere qualsiasi azione ne¬ 
cessaria del dischetto. La routine del 
dischetto situata a linea 1900 è la sola 
routine speciale, nel senso che legge 
l’intero file di servizio mettendolo nel¬ 
la matrice bidimensionale (CK$). 

Introduzione 
dei dati di servizio 

A linea 750 è stata inserita un’inter¬ 
rogazione D) DATI o E) ESCI per 
evitare all’utente di dover introdurre 
dati falsi solo per arrivare alla linea di 
ritorna al MENÙ con X. Dopo una 
risposta D) DATI viene impiegato un 




loop FOR a linea 770 per inviare l’u¬ 
tente alle sette risposte richieste, tra¬ 
mite un’istruzione ON GOSUB. Que¬ 
ste subroutine sono gli input dei DATI 
DI MANUTENZIONE situate alle li¬ 
nee 1610—1790. Ognuna delle sette 
subroutine si interfaccia con la scher¬ 
mata di introduzione dei dati di servi¬ 
zio, in modo di non distruggerla. Inol¬ 
tre ogni subroutine ha i propri control¬ 
li per contribuire a ridurre al minimo 
gli errori di immissione. 

Una volta che le sette risposte sono 
state raccolte, il programma permette 
di editare, registrare, cancellare o 
uscire, nella linea 780, richiamando 
una subroutine di input a linea 1820. 
Quando si sta editando vengono utiliz¬ 
zate le stesse routine di input (linee 
1610—1790) per raccogliere la risposta 
corretta. Una risposta C) per cancella¬ 
re rinvia il programma alla linea 750 
per ricominciare. 

La risposta R) per registrare o X) 
per uscire con SA VE manda le sette 
risposte al dischetto e alla matrice 
CK$. Un X) senza SA VE rimanda al 
menù principale senza disturbare il di¬ 
schetto o la matrice CK$. Quando un 
R) ha completato la memorizzazione 
dei dati va alla linea 750 per continua¬ 
re ad accettare dati di servizio. 

La successiva subroutine importan¬ 
te contiene le capacità di editing e di 
elencazione che permettono di CAM¬ 
BIARE DATI DI MANUTENZIO¬ 
NE, AGGIUNGERE E CANCEL¬ 
LARE VOCI DI MANUTENZIO¬ 
NE e LISTARE FILE/VO CE/D ATI. 
Queste routine sono situate nelle linee 
850—1520, e costituiscono quasi un 
terzo del programma. La routine 
CAMBIARE DATI DI MANUTEN¬ 
ZIONE non fa che usare le routine di 
predisposizione della schermata e di 
input (linee 1570-1630) per visualiz¬ 
zare una VOCE DI MANUTENZIO¬ 
NE prescelta e i dati a essa relativi. Per 
editare le risposte originali viene uti¬ 
lizzato lo stesso metodo usato per 
cambiare i dati. Le linee 970-980 pre¬ 
dispongono la schermata e i vecchi da¬ 
ti, mentre la linea 990 controlla il cam¬ 
biamento, in modo identico alla linea 
780. 

Quando tutti i cambiamenti sono 
stati completati, i dati vengono inviati 
alla matrice e al dischetto. La linea 
1940 è la subroutine che dispone i dati 
nella matrice CK$. L’aggiunta di voci 
di servizio è risultata semplice: basta 
aprire con OPEN il FILE DI MANU¬ 
TENZIONE (linea 1070) e poi andare 
alla subroutine di input originale a li¬ 
nea 750. La cancellazione si ottiene 
procurandosi un numero di voce di 


servizio (linea 1110) e poi la conferma 
(linee 1140-1160). Una volta avuta la 
conferma, le linee 1170-1180 chiudo¬ 
no la matrice CK$ sulla voce di servi¬ 
zio cancellata. Si possono cancellare 
varie voci senza un aggiornamento del 
dischetto indicando S) per SI’ in rispo¬ 
sta alla domanda "UN’ALTRA?" di 
linea 1190. Una risposta negativa fa sì 
che il programma aggiorni il dischetto 
e poi si torni al MENU’ DI EDITING. 

L’elencazione si compie nelle linee 
1230-1520. L’opzione LISTA INDI¬ 
CE VOCI DI MANUTENZIONE co¬ 
mincia a linea 1270, e visualizza o 
stampa tutti i nomi di voci di manuten¬ 
zione (memorizzati nella matrice CK$ 
(1,1) in modo che si possa individuare 
il numero esatto corrispondente a una 
specifica voce di manutenzione. L’op¬ 
zione LISTA DATI DI MANUTEN¬ 
ZIONE (linee 1330—1420) stampa sul 
video o su carta le sette voci di dati di 
una voce di servizio scelta dall’utente. 
Si può ottenere anche una lista com¬ 
pleta delle operazioni di manutenzio¬ 
ne (linee 1430—1520) sullo schermo o 
sulla stampante. 

Scadenze 

manutenzione 

La subroutine LISTA OPERA¬ 
ZIONI DI MANUTENZIONE (linee 
230-430) è l’anima del programma: 
senza di essa il programma non ha ra¬ 
gione d’essere. Ci si procura a linea 
250 il nome di file auto (CF$), insieme 
con l’attuale lettura del contachilome¬ 
tri (OD$) e la data corrente (DA$). 
Un loop passa per ogni voce di servi¬ 
zio, confrontando la differenza delle 
letture del contachilometri (OD) con i 
chilometri dopo i quali è consigliato il 
servizio (MI$) (linea 300), e confron¬ 
tando la differenza in mesi fra la data 
presente (DA$) e la data dell’ultimo 
servizio (CK$ (N, 6) in mesi con i mesi 
dopo i quali è raccomandata la manu¬ 
tenzione (CK$ (N, 5). 

Se sono stati superati i chilometri o i 
mesi dopo i quali è raccomandato il 
servizio, il programma passa alla linea 
360 per visualizzare o stampare quella 
voce di servizio come voce perla quale 
è tempo di manutenzione. Le linee 
360-430 provvedono a formattare il 
video o la stampa in conformità con 
l’impostazione di P$ nella subroutine 
2080. 

Nelle linee 280, 320 e 330 viene 
compiuto un certo intrappolamento 
d’errore, per evitare erronee elenca¬ 
zioni delle scadenze di manutenzione. 
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:47G 

1480 

1485 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 


1590 


1600 

1610 


1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 


1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 


36,25: PRINT «$<1.2): SFC«: 3);CK*U,6$: SPC< 43;CK*U, 
4);: POKE 3ó,47: PRIMT CKS<I f 5>;: POKE 36,53 
PRINT CK*(I,3>; : POKE 36.59: PRINT CK*(I,7): NEXT I: PR1NT 
CHR* (12): PRINT D*;-RR#ò B : GOTO 1520 
HQHE :X = 0: FOR I = 1 IO 40: PRINT NEXT I: FOR 
I = 1 TO RO: PRINT "SERV.N.' ;1 :' - ':CK*U.l): PRINT ’D 
ATA SERv.- ":CK*(!.6):" » KM.PERCORSI - "iCK$(I.4) 

PRINT "KM.StRV. -*;CK*(I,3)# MESI 3ERV. -';CK*(I,5) 
PRINT 'NOTE:';CK*(I,7);* * STATO - ";CK*(1,2): FOR J = 

1 TO 46: PRINTNEXT J 

X = X + I : IF X = 4 THEN UT = 22: SOSUB 2050:X = 0: HOME 
: FOR J = 1 TO 40: PRINT NEXT J 
NEXT I:VT = 22: SOSUB 2050 

HOME : VTAB 2: PRINT 'FILE MANUTENZIONE :' : PRINT ‘FILE 
MANUTENZIONE AUTO: ';CF*: GOTO 1240 
REM CONTROLLA SE R0=0 
IF RO > 0 THEN GOSUB 1880: RETURN 
VTAB 4: HTAB 1: CALL - 958: VTAB 5: PRINT "ERRORE 1 - 
NESSUN DATO NEL FAL1 AUTO''' 

PRINT : PRINT "IL FILE MANUTENZIONE “ :CF^:" VIENE CWC 
ELlATO":VT = 22: GOSUB 1890: GOSUB 2050: POP : RETURN 
REM ROUTINE SCHERMATA VOCI NNUTENZ IONE 
VTAB 2: HTAB 1 : CALL - 958: PRINT "FILE MANUTENZIONE 
AUTO: 1 ;CF$: VTAB 6: HTAB 1: PRINT "1. MANUTENZIONE:': VTAB 
8: HTAB 1: PRINT R 2, OAMBIO/ ISPEZIONE:": VTAB 10: HTAB 
1: PRINT "3. KM. MANUTENZIONE:" 

VTAB 12: HTAB 1: PRINT '4. LETTURA KM. (ULTIM C/I):': 

• T AB 14: htaB 1; PRINT "5. MESI MANUTENZIONE:': *VTAB 1 
6: HTAB 1: PRINT "6. DATA(ME/AN-ULT.C/I ) : * 

VTAB 18: HTAB 1: PRINT s 7. NOTE:": RETURN 
VTAB 6: HTAB 18: CALL - 868: FOR I = 1 TO 20: PRINT CHR* 
(95);: NEXT I: HTAB 18: INPUT ";SI*: IF SI* = " THEf4 
1610 

IF LEN (SU) ) 20 THEN 1610 
RETURN 

VTAB 8: HTAB 25: CALL - 868: 6ET CK*: PRINT CK*: IF C 
K* < ) 'I B AND CK* < > *C" THEÌ'H 1640 
RETURN 

-TAB 10: HTAB 22: CALI - 868: INPUT ”;MI*: IF LEN ( 

MI$) > 5 THEN 1660 


IF VAL (MI*) < 1000 THEN 1660 
RETURN 

TAB 12: HTAB 30; CAlL - 868: INPUT " !, ;QD*: IF LEN ( 
OD*) > 6 THET4 1690 

OD = VAL (9D*):QD* = STR* (OD): TAB 12: HTAB 30: CALL 


!F OD < l THEft 1690 


- 868: INPUT a, ;MO*: 


VAL ( 


868: PRINT OD*: 

RETURN 

TAB 14: HTAB 23: CALL 
MO$) < 1 THEN 1720 
RETURN 

TAB 16: HTAB 25: CALL 
DA*) < > 5 THEN 1740 
IF MIO* (DAS.3.1) < > 

YR = VAL • RIGHTS ( DA*.2 •' ) : n* ìn \ i 
MO = VAL ( LEFT* (DA*, 2)): IF MO < 1 OR MO 
740 

RETURN 

TAB 18: HTAB 10: CALL - 868: FOR 1 = 1 TO 20: PRINT 
CHR* (95):: NEXT I: HTAB 10: INPUT ";SN*: IF LEN (SN 


- 868: INPUT " ;DA*: IF LEN ( 
THEN 1740 

IF YR : 1 THEN 1740 

> 12 THEN 1 


1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 


188C 

1390 

1900 


1910 

1920 

1930 

1940 

1950 

I960 

1970 

1980 

1990 

2000 

2010 


2020 

2030 


2040 

2950 

2060 


2070 

2080 


2090 

2100 

2110 

2120 


*> > 20 THEN 1790 
RETURN 

TAB 21: HTAB 1: PRINT 'SCAMBIARE, R=RE6ISTRARE ': PRINT 
SCANCELLARE. X=USCIRE >": RETURN 
TAB 22: HTAB 28: CALL - 868: SET CD*: PRINT CD*: RETURN 
REM ROTINE DA T I SU DISCO 
PRINT D*: , 0PEN';CF*;',L87 a : RETURN 
PRINT D*j B READ*;CF*;".RG*: INPUT R0*:RQ = VAL (RO*): PRINT 
D*: RETURN 

PRINT D*;"READ':CF*:",R'jR: FOR II = 1 TO 7: INPUT R*( 

II): NEXT II: PRINT 0*: RETURN 

PRINT D*; i yR3TE'iCF*;' J R";R: PRINT Sii: PRINT CK*: PRINT 
MI*; PRINT OD*: PRINT MO*: PRINT DA*: PRINT SN*: PRINT 
DI: RETURN 


PRINT D*:'WRITE";CF*;',RO": PRINT STR* (RO): PRINT D* 
l'CLOSE':CF*: RETURN 
PRINT Bij'DELETE'jCF*: RETURN 
RO = 0: GOSUB 1840: GOSUB 1850: FOR R = 1 TO RO: GOSUB 


1860: FOR 1 = 1 TO 7:CK*(R.I> = R*CI>: NEXT I: NEXT R: PRINT 
D*:"CLOSE a :CF*: RETURN 
PRINT DI: CLOSE'jCF*: RETURN 
REM ROUTINE MATRICI DATI 


SI* = CK*(R,J):CK$ = CK*<R.2):MI* = CK*(R.3):GD* = CK*( 
R.4):MO* = CK*(R,5):DA* = CK*<R,6):SN* = CK*(R,7): RETURN 
CK*(R,1) = SI*:CK*(R,2) = CK*:CK*(R,3) = MI*:CK*(R.4) = 
0D*:CK*(R,5) = MQ*:CK*R,é) = DA*:CK*(R,7) = SN*: RETURN 


REM ROUTINE DI INPUT 

VTAB VT: CALL - 863: INPUT 'INTRODUCI NOME FILE AUTO 
>':CF*: IF VAL (CF*) > 0 THET4 1960 
IF CF* = ■■ THEN POP : RETURN 
IF CF* = 'CATALOG' THEN PRINT D*; B CATAL06’:V = VT:VT = 

22: GOSUB 2050:VT = V: GOTO I960 
IF CF* = CS* T HEN RETURN 

CS* = CF*: PRINT D*:'VERIFY';CF*: GOSUB 1900: RETURN 
VTAB VT: CALl - 868: INPUT * INTRODUCI DATA MANUTENZIC 
NE (ME/AN) > B : DA*: IF LEN (DA*) < > 5 OR VAL (DA 
*> < 1 OR VAL (DA* ) 12 THEN 2010 
IF VAL ( RIGHT* (DA*.2)) < 1 THEN 2010 
VTAB VT ^ 2: HTAB !: CALL - 868: INPUT "INTRODUCI LET 
TURA KM. MANUTENZIONE > a ;OD*:OD = VAL (OD*): IF 0 
D < 1 THEN 2030 
RETURN 

: m VT * 5: HTAB 5: CALL - 958: PRINT "(PREMI UN TAS¬ 
TO PER CONTINUARE)";: GET A*: PRINT : RETURN 
VTAB VT: HTAB 1: CALL - 868: PRINT 'SCEGLI GET A 
*: PRINT A*:A = VAL (A*): IF A* = CHR* (13) OR A* = CHR* 
(27) THEN POP 
RETURN 

VTAB VT: HTAB 1: CALL - 868: PRINT 'V)IDEO 0 S)TAMPM 
TE’ )':: GET P*: PRINT ?*: IF P* < > "5" AND P* < > ' 

V B THEN 2080 

IF H = "S* THEN PRINT Dij'PRIl': PRINT CHR* (9);*80 
N* 

RETURN 
REM TITOLO 

TEXT : HOME : VTAB 8: H T AB 13: PRINT "A U T 0 P I U •' 

: VTAB 10: HTAB 12: PRINT “BY WOODY AOAMSQN* : VTAB 14: HTAB 
11: PRINT "COPYRIGHT 1985 BY*: '/TAB 16: HTAB 8: PRINT ' 
APPLICANDO i MICROSPARC":VT = 22: GOSUB 2050: RETURN 


La linea 280 intrappola le letture cor¬ 
renti del contachilometri inferiori alla 
lettura fatta all’epoca dell’ultimo ser¬ 
vizio. La linea 320 intrappola qualsiasi 
data con un anno inferiore all’ultimo 
anno di manutenzione registrato, e la 
linea 330 intrappola qualsiasi data con 
un mese inferiore all’ultimo mese di 
manutenzione (gli anni devono essere 
uguali). Viene segnalato all’utente in 
quale voce di servizio c’è l’errore, e 
poi si torna al menù principale. 

Aggiornamento 
contachilometri e data 

La subroutine AGGIORNA CON- 
TACHILOMETRI/DATA permette 
di cambiare la lettura del contachilo¬ 


metri (OD$) e la data (DA$) nella 
matrice CK$. Un’esclusiva routine di 
schermata consente la facile conferma 
visiva delle voci da aggiornare. 

Le linee 490-510 visualizzano sullo 
schermo un massimo di 15 voci di ser¬ 
vizio (CK$ (I, 1)) e poi chiamano la 
routine 530. Nell’ambito di questa su¬ 
broutine si introduce un numero di vo¬ 
ce di servizio, e poi questo numero 
viene messo in campo inverso sullo 
schermo dalla linea 610. Se viene indi¬ 
viduato un numero negativo (linea 
550), il numero della voce di servizio 
viene riportato in campo normale (li¬ 
nee 610-640) e i vecchi dati vengono 
recuperati dal dischetto da un GO¬ 
SUB 1840. 

Le linee 570—600 sono le trappole 


di errore per la lettura del contachilo¬ 
metri, il mese e l’anno. Se viene indivi¬ 
duato un errore ne viene data segnala¬ 
zione all’utente. Il programma non 
permette di aggiornare una voce di 
servizio se la lettura del contachilome¬ 
tri o la data sono inferiori all’ultima 
lettura registrata o alla data dell’ulti¬ 
ma manutenzione. Quando tutti gli 
aggiornamenti sono completi, la linea 
520 trasferisce sul dischetto la matrice 
aggiornata e ritorna il controllo al me¬ 
nù principale. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

-- ¥ 
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Volete trasformare una parola, una frase, un disegno, 
un grafico, in un poster gigante, in uno striscione da 
appendere al muro? Facilissimo, basta... 


DOS 3.3 
ProDOS 


APPLE //e 
APPLE //c 




L e possibili applicazioni di giganto¬ 
grafie che riportano grafici finan¬ 
ziari, disegni tecnici, o semplicemente 
disegni artistici, sono praticamente in¬ 
finite e, nella maggior parte dei casi, di 
sicuro successo. Ma è anche possibile 
ottenere poster da disegni particolar¬ 
mente riusciti, da attaccare alla parete 
come arredamento o per addobbare le 
pareti di una stanza per una festa, sen¬ 
za preoccuparsi che possano poi veni¬ 
re rovinati: tanto è un attimo ristam¬ 
parli. 

Come funziona 

Scritto in applesoft per permettere 
un’eventuale personalizzazione da 
parte dell’utente, il programma, dopo 
aver chiesto se la figura da stampare è 
già in memoria, comincia a scandaglia¬ 
re la pagina grafica, partendo dall’an¬ 
golo in basso a sinistra e procedendo 
verso l’alto. Per ogni valore, esegue un 
controllo per verificare se il pixel cor¬ 
rispondente è acceso o spento. Se il 
pixel risulta spento (su schermo mono¬ 
cromato si vede nero), salta alla su¬ 
broutine del carattere, in questo caso 
un asterisco, altrimenti salta a quella 
del carattere spazio. Se si stampasse 
un carattere per ogni pixel acceso e 
uno spazio per ogni pixel spento, si 


otterrebbe una hard copy negativa ri¬ 
spetto alla figura dello schermo. Nel 
caso si volesse di proposito un negati¬ 
vo della figura da stampare, è suffi¬ 
ciente invertire le linee 940 e 960 e le 
linee 950 e 970. Il LOMEM della linea 
230 protegge la prima pagina grafica 
dal programma, che potrebbe andare 
a influenzare e rovinare la figura in 
memoria. 

Il programma è predisposto per fun¬ 
zionare con due stampanti diverse, la 
Apple imagewriter e la Epson mx 80, 
ma è facilmente adattabile a qualsiasi 
altra stampante, modificando oppor¬ 
tunamente le linee 470-480 oppure le 
linee 500—510. In queste linee viene 
infatti settata la stampante per poter 
ottenere i caratteri compressi e lo spa¬ 
zio interlinea dimezzato. Nel caso si 
disponesse di una stampante a 132 co¬ 
lonne si cosiglia di cancellare le linee 
dalla 400 alla 520, ottenendo cosi una 
stampa leggermente più grande. 

Se la stampa dovesse risultare trop¬ 
po chiara, sarà sufficiente settare la 
stampante con l’apposito comando di 
EMPHASIZED (scrittura passata 
due volte). 

Le dimensioni di stampa sono sola¬ 
mente due, per rendere il programma 
più corto da digitare, più semplice da 
controllare ma soprattutto più veloce. 


Se lo si volesse modificare per ottene¬ 
re stampe ancora più grandi, basta 
modificare i loop di SCAN e S1CAN e 
incrementare adeguatamente la varia¬ 
bile SP. 

Attenzione a non esagerare con le 
dimensioni della figura, a rischio di 
non ottenere una risoluzion grafica del 
tutto sodfdisfacente. 

Poiché il programma è stato scritto 
in basic, risulta un po’ troppo lento se 
viene usato con una stampante senza 
buffer di memoria, mentre con le 
stampanti Apple, provviste di buffer, 
il tempo di stampa si riduce notevol¬ 
mente. Per chi avesse a disposizione 
un compilatore, è cosigliabile trasfor¬ 
mare il programma in linguaggio mac¬ 
china, per aumentare al massimo l’ela¬ 
borazione dei dati. 

Una volta terminata la stampa, oltre 
al lavoro di incollare i fogli tra loro, è 
bene spegnere la stampante per qual¬ 
che secondo, in modo da resettarla e 
togliere ogni tipo di programmazione 
e quindi farla tornare al suo normale 
funzionamento. 

Carattere di stampa 

Il carattere di stampa che viene uti¬ 
lizzato per sostituire il pixel è un aste- 
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Listato 


Qu 


100 

REM 

********************* 

1 10 

REM 

* 

* 

120 

REM 

* POSTER DA SCHERMO 

* 

130 

REM 

* 

* 

140 

REM 

* by Alberto Rossi 

* 

150 

REM 

* 

* 

160 

REM 

* f or 

* 

170 

REM 

* 

* 

180 

REM 

* Applicando 

* 

190 

REM 

* 

* 

200 

REM 

* 20-1-85 

* 

210 

REM 

* 

* 

220 

REM 

********************* 

230 

LOMEM: 16334 


240 

DIM 

DG(133) 


250 

VA » 

0:X = 0:ST$ = "":CB 

= 0: 


se = 

r» C Ivi 

1! 

il- 

CO 


t> V 

r\ tiri 



270 

REM 



230 

REM 

Carica la figura e 


290 

REM 

dimensiona stampa 


300 

REM 



3 10 

REM 

— 


320 

TEXT 

: HOME : INPUT "La 

f igu 


r a é 

già in memoria ? "; 

R$: 


LEFT* (R$,1) < > "N" THEN 


380 

330 PRINT : INPUT "Slot ";SS: PRINT 
: INPUT “ Drive ";DD: PRINT 
s INPUT "Vuoi vedere il cata 
log del disco ? ";R$: IF LEFT$ 
(R'i ? 1 ) < > "S" THEN 350 

340 PRINT CHR$ (4) ;"CATALOG,S" 5 
SS; " , Dl."J DD 

350 PRINT : INPUT "Nome -figura d 

a stampare ? ";N$: PRINT : PRINT 
"Inserire la figura nel driv 
e ";DD: INPUT "e premere Ret 
urn " ; R$ 

360 PRINT CHR$ (4) ; "BLOAD" ; N*5" 

, A'^2000" 

370 HOME 

380 PRINT : PRINT "Possibilità d 

i stampa del disegno PRINT 

: PRINT " 1) stampa gigante 

(2 pezzi>": PRINT " 2) sta 

mpa supergigante (3 pezzi)": 


INPUT " 

ale ? (i o 2 ) ";SP 
390 PRINT : PRINT "Su che stampa 
nte ?" : PRINT : PRINT " 1) 

Apple image writer": PRINT 
2) Epson m>: 80": INPUT " 
Quale ? (1 o 2)" ; ST 
400 REM ======~=======n=====^====^===== 

410 REM 

420 REM Setta la stampante 
430 REM 

440 REM == = ^======== = =:==rr==^===: = == = 

450 PR# 1 

460 0N ST GOTO 470,500 


470 

PRINT 

CHR$ 

(27) + "Q" 

430 

PRINT 

CHR$ 

(27) + "T" + "10 

490 

GOTO ! 

520 


500 

PRINT 

CHR* 

(15) 

510 

PRINT 

CHR$ 

(27); CHR$ (65); 


CHR* (5 -- SP) 

520 PR# 0 
530 REM 
540 REM 

550 REM Scandaglia schermo 
560 REM 

570 REM = = = = = 

580 HOME 

590 FOR X = 0 TO 39 

600 IF SP < > 2 THEN 650 

610 FOR SCAN = 9088 + X TO 8192 + 

X STEP - 128: FOR S1AN = 71 
68 TO 0 STEP - 1024:DG(VA) « 
PEEK (SCAN + SIAN): VA = VA + 

1: NEXT SIAN,SCAN 
620 GOSUB 730 

630 NEXT X: PR# 1: FOR S0 = 1 TO 

30: PRINT : NEXT S0s PR# Os FOR 
X = 0 TO 39 

640 IF SP < > 2 THEN 690 

650 FOR SCAN = 9128 + X TO 8232 + 

X STEP - 123: FOR S1AN = 71 
68 TO 0 STEP - 1024:DG(VA) = 
PEEK (SCAN + SIAN): VA = VA + 

1: NEXT SIAN,SCAN 
660 IF SP < > 2 THEN 610 

670 GOSUB 730 

680 NEXT X: PR# 1: FOR S0 = 1 TO 

30: PRINT : NEXT S0: PR# 0: FOR 


risco, ma può essere usato un qualsiasi 
altro carattere, cambiandolo nelle 
stringhe delle righe 940 e 950. Il tipo di 
carattere permette di modificare il 
contrasto della figura. 

A ogni pixel della colonna analizza¬ 
to, il programma provvede ad aggior¬ 
nare la stringa della linea 980 che, una 
volta terminata, verrà stampata per in¬ 
tero una o due volte a seconda delle 
dimensioni. 


Per problemi di spazio, il program¬ 
ma esegue la stampa su due o tre stri¬ 
sce di carta, a scelta, (si potrebbero 
portare fino a 192), automaticamente. 

Il programma 

100-220 Titolo, programmatore e da¬ 
ta. 

230 Definisce l’indirizzo di memoria 
più basso disponibile dal programma. 


240 Dimensiona il vettore DG che rap¬ 
presenta i valori di una colonna. 

250 Azzeramento variabili. 

260-320 Chiede se la figura da stam¬ 
pare è già in memoria; in caso afferma¬ 
tivo, salta alla linea 380. 

330 Chiede lo slot e il drive dal quale 
deve caricare la figura e chiede se si 
vuol vedere il catalogo del disco; se la 
risposta è negativa, salta a 350. 

340 Mostra il catalogo del disco. 
350-360 Chiede il nome della figura 



















X = 

0 TO 39 

690 

FOR 

SCAN = 9168 + X TO 8272 + 


X STEP - 128: FOR S1AN = 71 

68 IO 0 STEP - 1024:DG(VA) = 
PEEK (SCAN + SIAN): VA = VA + 

1: NEXT SIAN,SCAN 

700 

GOSUB 730 

710 

NEXT 

X 

720 

END 


730 

REM 

li 

II 

I! 

Il 

il 

il 

il 

il 

il 

II 

il 

il 

il 

li 

li 

740 

REM 


750 

REM 

Crea la stringa 

760 

REM 

da stampare 

770 

REM 


780 

REM 

il 

II 

il 

il 

li 

il 

li 

il 

il 

II 

II 

li 

il 

II 

iì 

790 

FOR 

Il * 0 TO 6 

800 

FOR 

CA = 0 TO VA ~ 1 

810 

IF DG(CA) = INT (DG(CA> / 2 


) * 

2 THEN ON SP GOSUB 970, 


960: 

GOSUB 980: GOTO 830 

820 

ON SF‘ GOSUB 950,940: GOSUB 9 


80 


830 

DG(CA) = INI (DG(CA) / 2): NEXT 


CA: 

GOSUB 1040: NEXT II 

840 

VA * 

0 

850 

FOR 

I = 1 TO 10: F'RINT : NEXT 

860 

RETURN 

870 

END 


880 

REM 

il 

u 

fi 

il 

ii 

II 

il 

II 

ii 

li 

II 

il 

ii 

li 

II 

II 

II 

ii 

ii 

ii 

890 

REM 


900 

REM 

Scieg 11 e il c:ara11ere 

910 

REM 

da stampare 

920 

REM 


930 

REM 

ii 

ii 

il 

ii 

ii 

II 

il 

i! 

ii 

ii 

ii 

li 

il 

ii 

ii 

ii 

li 

ii 

ii 

i! 

ii 

940 

A* = 

RETURN 

950 

A$ ---■ 

: RETURN 

960 

A$ ~ 

" ": RETURN 

970 

A$ = 

" " : RETURN 

980 

ST$ = 

STf> + A*: RETURN 

990 

REM 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

H 

li 

li 

li 

ii 

ii 

1000 

REM 


1010 

REM 

S t. a m p a u n a riga 

1020 

REM 


1 030 

REM 

il 

ii 

il 

ii 

ii 

ii 

ii 

ii 

li 

ii 

li 

ii 

li 

ii 

li 

1 040 

PR# 

1 

1050 

FOR 

I = 1 TO SP: F’RINT ST$: 


NEXT I:ST* * " " 

1 060 

PR# 

0 

1070 

RETURN 



da caricare in memoria e la carica. 
380 Chiede le dimensioni della stam¬ 
pa. 

390 Chiede il tipo di stampante a di¬ 
sposizione. 

400-520 Setta la stampante. 

530-710 Scandaglia lo schermo e cari¬ 
ca il vettore DG. 

720 Fine. 

730-870 Subroutine per la creazione 
della stringa. 

880-980 Subroutine per la scelta del 


carattere da stampare e aggiornamen¬ 
to della stringa ST$. 

990-1070 Subroutine per la stampa 
della stringa ST$ una volta che è com¬ 
pleta. 

Alberto Rossi 


Questo programma è disponibile su di¬ 
schetto. L’elenco, i prezzi e le modalità 
d’ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 

- 




all'altezza 
dei tuoi problemi 




Acquistare un computer non è 
sufficiente a risolvere i tuoi pro¬ 
blemi. Devi acquistare quello più 
idoneo all'uso che devi farne. 
Computer Center: la più vasta 
gamma di computer per una 
scelta migliore • validissimo 
team di analisti programmatori a 
tua completa disposizione • tutte 
le periferiche e accessori • corsi 
di formazione professionale • 
Software House. 



VENDITA -ROMA 

Via Nizzà; 48/50/52 
Tel. 844.84.18-86.38.39 
Via Nizza, 26/28/30/32 

Tel. 844.80.22-85.79.57 
ViaSoana(P.za Tuscolo), 24/26/28 
Tel. 759.15.44-759.27.90 
Via Prati Fiscali, 257/257a/257b 
Tel. 810.17.60 

ASSISTENZA TECNICA 'ROMA 
Via Terni, 86/86a/86b 
Tel. 757.89.36 


















































































C’è un percorso di golf, in qualche parte 
del mondo, che vi piace in modo 
particolare? Con questo programma 
potete ricrearlo sull’ Apple, 
memorizzarlo su dischetto e giocarci 
tutte le volte che vorrete con 
i vostri amici. 


DOS 3.3 
ProOOS 
APPLE //e 
APPLE //€ < 



C erto che l’idea di poter creare sul 
computer un proprio campo di 
golf affascina non poco. Magari con la 
possibilità di cancellarlo dal dischetto, 
una volta che si siano padroneggiate le 
sue difficoltà, per sostituirlo con un 
nuovo percorso. Golf utilizza figure e 
grafica in alta risoluzione per realizza¬ 
re esattamente questo scopo. 

Creazione 
del percorso 

Potete progettare a vostro piaci¬ 
mento le caratteristiche di ciascuna 
buca del percorso, collocare tee e 
green in qualsiasi punto del monitor e 
inserire nello schema quanti alberi, 
rough, bunker e ostacoli d’acqua desi¬ 
derate. I rough e i bunker possono 
essere grandi quanto si vuole. 

Potete inoltre rifinire il percorso e 
spostare ogni figura fino a che sarete 
del tutto soddisfatti. 

L’immagine definitiva di ogni buca 
viene salvata su dischetto per poterci 
giocare ancora. Il computer aiuta per¬ 
fino a determinare la distanza e il par 
di ciascuna buca. 

Svolgimento del gioco 

Quando si esegue per la prima volta 
il programma, si avrà il menù della 
figura I. Prima di poter giocare dovete 
creare un percorso, quindi scegliete 
l’opzione 3, che permette di eseguire il 
programma CREARE, nel quale si fa 
uso sia di testo sia di Hi-Res per pro¬ 


gettare ciascuna buca. Dato che le in¬ 
formazioni per ogni buca sono memo¬ 
rizzate sia in un breve file di testo di 2 
settori sia in un file binario (immagi¬ 
ne) di 34 settori, dovete essere certi di 
avere abbastanza spazio sul dischetto 
prima di cominciare a progettare un 
nuovo percorso; meglio di tutto è uti¬ 
lizzare un dischetto appena inizializza- 
to. Potete creare un massimo di dieci 
buche per ogni percorso, che corri¬ 
sponde al quantitativo massimo di in¬ 
formazioni memorizzabili su un di¬ 
schetto che contenga solo i programmi 
GOLF. 

Per ogni buca viene chiesta la posi¬ 
zione del tee, la sua collocazione ri¬ 
spetto al green (il che determina la 
direzione in cui si manderà la pallina), 
la posizione del green e l’eventuale 
presenza di alberi, rough, bunker od 
ostacoli d’acqua. Poi si determina il 


SCEGLI !.. 2,. 3, 0 4 | 

(!) GIOCARE SU UH NUOVO PERCORSO 

(2) GIOCARE UN ALTRO GIRO SULLO 
STESSO PERCORSO. 

(3) CREARE UN NUOVO PERCORSO. 

(4) FINIRE IL PROGRAM. 


Figurai. Menù principale. 
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Listato 1 - GOLF 


10 REM **«****««**««***«* 

20 REM * * 

30 REM * GOLF * 

40 REM * 01 GARY KNOX * 

50 REM * COPYRIGHT (0 1985 * 

60 REM * BY APPLICANDO à * 

70 REM * MICRO-SPARO, INC * 

80 REM * * 

100 ’ÌF PEEK (104) = 64 THEN 210 

110 TEXT : HOME : VTA8 8: HTAB lé: PRINT 8 6 0 L F ": PRINT 
: HTAB 14; PRINT "DI GARY KNOX" 

120 VTAB 20; P RINT s <0 1985 BY APPLICANDO & MICROSPARC 8 : 

PRINT "PREMI UN TASTO QUALUNQUE PER COMINCIARE": HTAB 
19: SET Kl: PRINT 

130 : 

140 REM «««ROUTINE CARICAMENTO**** 

150 : 

160 TEXT : HOME 
170 VTAB 10 

180 PRINT "UN MOMENTO. 8 

190 POKE 103,1: POKE 104,64: POKE 16384.0 
200 PRINT CHRI (4)}"RUN GOLF" 

210 IF PEEK (2791) = 15 AND PEEK (2793) = 32 THEN 250 
220 REM CARICA FIGURE E ROUTINE SCRN 
230 PRINT CHRI (4); U BL0AD SCRN" 

240 PRINT CHRI (4);"SLOAD SOLF.SHAPES 2 
250 DI = CHRI (4):RÌ = CHRI (13): TEXT : HOME : POKE 232,2 
31: POKE 233,10:LL$ = "":TP = R?4D ( - 1) 

260 : 

270 REM **** MENU' **** 

280 : 

290 DIM CLI(29).H7X(2G),VX(5),WB((55,!RX(5),TDX(5) 

390 DIM PHX(5),TO(5),PX(5),PY(5),PX(5) ,P$<5),KQX(5),N$(5) 

310 HOME :TP = 0: RESTORE 

320 vTAB 5; PRINT “SCEGLI 1. 2, 3, 0 4 8 

230 VTAB 10: HTAB 3: PRINT *<1) GIOCARE SU UN NUOVO PERCORS 

0,": PRINT : HTAB 3: PRINT “(2) GIOCARE UN ALTRO GIRO S 
ULL0 S : PRINT : HTAB 7: PRINT "STESSO PERCORSO." 

340 PRINT : HTAB 3: PRINT "(3) CREARE UN NUOVO PERCORSO.": PRINT 
: HTAB 3: PRINT u (4> FINIRE IL PROGRAMMA." 

350 VTAB 5: HTAB 23: GET Al: PRINT :A = ‘UAL (Al): IF A < 1 
OR A > 4 THEN 350 
360 0N A GOTO 420,710,370,380 
370 PRINT DI:"RUM CREARE" 

380 TEXT : HOME : END 
390 : 

400 REM ««SCEGLIE IL PERCORSO**** 

410 : 

420 GNERR GOTO 3540 

439 HOME : VTAB 10: PRINT "STO LEGGENDO LA LISTA DEI PERCOR 
SI... * :NI = n “ :LLI = "S" 

440 PRINT DI;"OPEN CQURSE.LIST" 

450 PRINT DI:"READ CQURSE.LIST 8 


460 INPUT NUN: IF NUM < > 0 THEN 490 
470 P RINT DI ;“CLOSE CQURSE.LIST" 

480 HOME : VTAB 22: INVERSE : PRINT "NON CI SONO PERCORSI S 
U QUESTO DISCHETTO": NORMAL :LLI = "": GOTO 320 
490 FOR K = 1 TO NUM: INPUT NI(K),KSX(K): NEXT K 
500 PRINT Mj"CLOSE CQURSE.LIST 3 
510 HOME 

520 U = INI (NUM / 5):L = NUM - U * 5: INVERSE : HTAB 10: PRINT 
"LISTA DE! PERCORSI 8 : NORMAL : PRINT : PRINT 
530 !E U = 0 THEN U = 1 : GOTO 630 
540 FOR K = 1 TO U: FOR N = 1 TO 5 
550 HTAB 5: PRINT 6 ("N") * RISHTI (Nl(5 * U * N - 5), LEN 
(Nl(5 * U * N - 5)) - 1): PRINT 
560 NEXT N 
570 50SU8 3100 
580 IF A = 0 THEN 610 

590 IF A > 0 AND A < 6 T HEN 710 

600 PRINT : GOTO 570 
610 NEXT K 

620 IF ASC (Al) = 13 AND L = 0 THEN VTAB 1: GOTO 520 
630 IF L = 0 THEN 710 

640 FOR K = 1 TO L: HTAB 5: PRINT "CK") " RIGHTI (NI(5 * 

U * K - 5), LEN (N$<5 * U ♦ K - 5» - 1): PPM 

650 NEXT K 
660 GOSUB 3100 

670 ! c A < =9 OR A > L THB4 PRINT : GOTO 660 
680 : 

690 REM ««INTRODUCE NOMI GIOCATORI**** 

700 : 

710 "OR I = 1 TO 5:ri < I) = " B : NEXT I:PN = 1 : IF LLI = "" THEN 
^ 310 

7:0 V H0MeP:”VTAB 3: PRINT "INTRODUCI IL NOME DEL GIOCATORE N 
ELlAP-POSITO SPAZIO. 8 
740 LLI = E S" 

750 VTAB 5: PRINT 5 PREMI <~ (FRECCIA SINISTRA) PER FARE 
CORREZIONI." 

769 vTAB 29: HTAB 10: PRINT "PREMI INVERSE : PRINT ■ RE 
TURN NORMAL : PRINT 8 QUANDO HA! FATTO," 

770 VTAB 7: HTAB 8: PRINT "NON PIU' DI 5 GIOCATORI. 8 

780 VTAB 12: HTAB 14: INVERSE : PRINT "<";: HTAB 25: PRINT 
s >" : NORMAL 

790 02 = 14; VTAB 12: HTAB 15 
800 SE 7 Al 

819 IF A.SC (Al) = 21 THEN Al = 8 8 : GOTO 870 

820 ; c ASC (Al) = 13 T HEN 890 

839 IF ASC (Al) < ) 8 THEN 870 

840 IF POS (0) = 14 THEN SCO 

850 IF U2 = 15 T HEN ?$(PN) = 88 : CALL - 1008: PRINT 8 CALL 
- 1008: GOTO 799 

860 PI(PN) = lEFTI <P*(?N).U2 - 15): CALL - 1008: PRINT 8 
‘ ::U2 = U2 - 1: CALL - 1008: GOTO 800 
370 IF U2 < 24 THEN 02 = U2 + 1:PI(PN) = PKPN) * Al: HTAB 
U2: PRINT Al:; GOTO 800 
880 GET Al: GOTO'819 
390 IF PN = 5 THEN 920 

900 HOME : VTAB 10: PRINT ‘ALTRI GIOCATORI? S/N? GET Al 
: IF Al = “S" T HEN PN = PN - 1: GOTO 720 
910 IF Al < ) "N 8 THEN 990 
920 FOR K = i TO PN:PT/.(K5 = 0: NEXT K 
930 FOR K = 1 TO 20: READ CLI«.K) ,HTX(K): NEXT K 
940 IF NI < ) 88 THEN 1090 
950 m = N*<5 * U - 5 * A) 

960 KQ = KQX<5 * U - 5 * A) 

979 : 

980 REM «««COMINCIA T l GIOCO**** 

990 : 

Continua 


par per ciascuna buca indirizzando la 
palla dal tee all’asta della bandiera. 

Creato il percorso, si torna al menù 
principale dove si può scegliere l’op¬ 
zione 1 per giocare sul percorso appe¬ 
na creato. Dopo che il programma ha 
chiesto i nomi dei giocatori, viene vi¬ 
sualizzata l’immagine in alta risoluzio¬ 
ne della prima buca, e ha inizio il gio¬ 
co. 

È disponibile un’ampia scelta di ba¬ 


stoni ogni volta che si colpisce la palli¬ 
na. Dopo aver scelto il bastone si può 
far ruotare una freccia nella direzione 
in cui si vuol mandare la palla. Atten¬ 
zione al vento! Può rovinare un colpo 
ben piazzato. Sono perfino possibili 1’ 
hook e lo slice della palla. 

Il computer non permetterà di man¬ 
dare la pallina al disopra di un albero 
se si è troppo vicini. Quando la palla 
viene spedita fuori limite o nell’acqua 


si riceve un colpo di penalità. Poi il 
computer ricolloca la pallina in posi¬ 
zione giusta per il prossimo colpo. 
Quando la palla finisce nel rough o in 
un bunker si deve scegliere il bastone 
giusto per avere i migliori risultati. 
Quando si fa il putt o si usa qualche 
altro bastone si può decidere con qua¬ 
le forza colpire la palla. 

Il programma è composto da quat¬ 
tro sottoprogrammi: due in BASIC, 
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LEZIONE DI GOLF 

II gioco del golf consiste nel tirare una apposita pallina da un punto di partenza, detto tee, a un punto d’arrivo, un 
buco del diametro di circa 10 centimetri, situato nel green , servendosi di appositi bastoni e con il minor numero di tiri 
possibile. Questo singolo percorso è detto buca, e un circuito regolamentare è formato da 18 buche. Una partita 
amichevole a golf può essere disputata sul numero di buche che si vuole, 36 o una sola non fa differenza. 

I bastoni si dividono in due tipi: legni e ferri. I legni servono per compiere maggiore distanza, in genere per 
effettuare il primo tiro di partenza dal tee di ogni buca; i ferri compiono una minore distanza, ma permettono tiri più 
precisi. Ferri e legni sono contraddistinti da un numero: più basso è il numero, e più distanza si riesce a far percorrere 
alla pallina. Esistono inoltre il putt, che è un particolare tipo di ferro che si usa nel green per tirare la pallina in buca, 
il sand, che serve a far uscire la pallina dal bunker, un particolare ostacolo rappresentato da una buca di dimensioni 
diverse, piena di sabbia, che in genere difende il green, e i l_bitch , un ferro particolarmente adatto a tiri molto corti. 

Ogni buca ha un suo par, che è il numero regolamentare di colpi che servono a tirare la pallina dal tee di partenza 
alla buca di arrivo, e può essere solo 3, 4 o5. Se un giocatore compie il percorso di una buca un colpo sotto il par si 
dice che ha fatto birdie, due colpi sotto, eagle, un colpo sopra, bogey. 

Ogni buca è costituita, come abbiamo visto, dal tee di partenza e dal green, la parte finale dove è situato il buco nel 
quale infilare la pallina. Poiché una buca può essere lunga più di 500 metri, fra tee e green esistono anche il rough, 
che è terreno incolto, contraddistinto da erba alta, situato in genere subito dopo il tee, e il fairway, terreno curato, 
contraddistinto da erba bassa. Per rendere più interessante il gioco (e, ovviamente, più difficoltoso), lungo il 
percorso si trovano diversi ostacoli: alberi, laghetti e stretti corsi d’acqua (ostacoli d’acqua), bunker (ostacoli di 
sabbia). 



una routine in linguaggio macchina e 
una tavola delle figure. Prima di poter 
giocare dovete introdurre le quattro 
parti come descriveremo qui di segui¬ 
to. Per prima cosa digitate il program¬ 
ma in Applesoft visibile nel listato 1 e 
salvatelo su dischetto battendo SAVE 
GOLF. Secondo, digitate il program¬ 
ma che crea un percorso, visibile nel 
listato 2, e salvatelo con il comando 
SAVE CREARE. 

Fate particolare attenzione quando 
digitate le linee dei dati di questi due 
programmi; questi dati infatti control¬ 


lano come viene colpita la palla. Ter¬ 
zo, introducete la routine in linguag¬ 
gio macchina del listato 3 e salvatela su 
dischetto con il comando: 


BSAVE SCRN, A$90C, L$1DB 


Introducete infine la tavola delle fi¬ 
gure visibile nel listato 4 e,salvatela sul 
dischetto con il comando: 


BSAVE GOLF. SHAPES, A$AE7, 
L$1E3 


Se non siete troppo esperti nel rico¬ 
piare programmi, date un’occhiata al¬ 
le pagine Per chi comincia : troverete 
risolti e spiegati molti dubbi che abi¬ 
tualmente assillano i neofiti. 

Una volta digitati i quattro pro¬ 
grammi, non vi resta che battere RUN 
GOLF, e divertirvi. 

Spiegazione 
del programma 

Date le dimensioni del programma, 
il suo impiego della grafica e il numero 
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1000 6P = 0: FOR H = i TO KQ 

1010 PO = 0:UD = INT <4 * RNO(l)):lW= !NT (15 * RNO (1 
)) + 1:UW = INT (.13 ♦ W * bW - M * W * 1.2) 

1020 POR K = 1 TO PNiPICKK) = 0; NEXT K 
1030 IF UiD = 0 THEN WY = - W:WX = 0 

1040 !F «0 = 1 THEN WY = 0:UX = IW 

1050 1F ìJD = 2 T HEN WY = iW:WX = 0 

1060 IF WD = 3 THEN WY = 0:UX = - W 

1070 : 

1080 REM ****DAÌI BUCA**** 

1090 : 

1100 HOME : VÌAB 10: FRINÌ "UN MOMENTO PREGO../ 

ino frinì MrOPErmvH 

1120 FRINÌ DÌ: S REAB 8 NÌ"/H 
1130 INPUT C,PAR:TP = ÌR + C 
1140 INPUT XT,YÌ,XG,Y6 
1159 FRINÌ Di; 3 CLOSE n N$VH 
1140 H6R :GP = GP + PAR:XG = X6 - Ì2:YG = Y6 ♦ 2 
1170 HOME : VÌAB 21: HÌAB 5: INVERSE : PRINT "BUCA "H;: HÌA6 
15: PRINT " D AR nD AR; : HÌAB 25: FRINÌ "OISTANZA="C: NORMAL 
: VÌAB 1 

1180 PRINT 0ij a 8L0AB a NÌ\H0LE"H 
1190 IF W = 0 THEN 1230 

1200 RQ7= 16 * 140: HCOLOR= 3: SCALE= 1 : DRAW 2 Ai 270,90 
1210 VÌAB 22: FLASH : HÌAB 5: FRINÌ "VELOCITA-' DEL VENTO =" 

; : NORMAL : FRINÌ 3 °WV" K/H" 

1220 FRINÌ "DIREZIONE DEL VENTO INDICATA A DESTRA DEL PER 
CORSO": 60SUB 3060: ! VÌAB 22: HÌAB 1: CALL - 958 
1230 FOR KK = 1 TO PN.-PX(KK) = XT:PY<KK) = Y7:WEX<KK) = 0:1 
RX(KK) = 0: NEXT KK 
1240 HCOLQR= 3 
1250 F! = 0 
1260 : 

1270 REM ****ÌURNI DEL GIOCATORE**** 

1280 : 

1290 FOR PI = 1 TO PN 

1300 XP = PX<VX(PL)):YP = PY<VX<PD) 

1310 IF PD = 0 THEN 1340 

1320 FOR KK = 1 TO PD: IF VX<PL) = ÌDX(KK) THET4 2810 
1330 NEXT KK 

1340 IF FI = 1 THEN ROT= 0: FOR KK = 1 TO 8: HCOLOR= 0: SCALE= 
KK: DRAW 1 Ai XT.YT: NEXT KK 

1350 IF FI = 1 THEN SCALE= 2: ROÌ= 0: HCOLOR= 3: XDRAW 2 Ai 
PX<VX< P L) ) J PY<MX<PL) ) :R = 0 
1360 : 

1370 REM ****SCEGLIE ì BASÌDI**** 

1380 : 

1390 PIC<<VX<PL >> = PHX<LC<<PD ) ♦ !:PTX<VX(PL)) = PÌX<VX<PD) 

♦ 1 


1400 

1410 

m 

1440 

1450 

1460 

1 ^70 

i486 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 


VÌAB 22: FRINÌ Pi<VX<PL));: HÌAB II: PRINT "QUESTO 8AS 
"0NE...S 0 N?" 

BN = 1:RN = 5: 30SUB 3110:TC = CC 

IF TC = 2 THEN BN = 10:RN = 17 

IF TC > = 3 THEN BN = 18:RN = 20 

VÌAB 22: HÌAB 11: CALL - 8ó8: FRINÌ "QUESTO "CLÌ<TC) B 

9 SO N9" 

TC$ = CU(TC) 

GOSUB 3110 

IF TC = 1 ÌHEN CN = CC - 5:EF = 0 

IF TC = 2 ÌHEN CN = CC - 3:EF = 0 

IF TC = 3 ÌHEN CN = CC - 5:EF = 1 

IF TC = 4 ÌHEN CN = CC ♦ 1:EF = 1 

IF TC = 5 THEN CN = CC - 2:EF = 3 

REM ****RUOÌA IL TEE**** 


1570 IF FI = 0 ÌHEN R0Ì= 0: FOR KK = 1 TO 8: HCGLOR= 0: SCALE= 
KK: DRAW 1 Ai XT,YT: NEXT KK 

1580 IF FI = 0 ÌHEN SCALE= 2: ROÌ= 0: HCQLQR= 3: XDRAW 2 Ai 
PX<VX<PL)).PY(VX<PL)):R = 0 

1590 ‘VÌAB 22: HÌAB 11: CALL - 868: FRINÌ "SCEGLI LA DIREZI 
ONE DEL COLPO" 

1400 FI = 1 

1410 VÌAB 24: CALL - 868: FRINÌ "^ORARIO E=ANÌIORARIO F=F 
INIÌ0 U ;: VÌAB 1 

1620 SET Ai: IF Ai = "F B THEN 1720 

1630 IF A* = "R" ÌHEN R = R + 4: GOTO 1660 

1640 IF Ai = "E 8 ÌHEN R = R - 4; GOTO 1640 

1650 GOTO 1420 

1660 IF R < 0 THEN R = 60 

3670 IF R ) 64 ÌHEN R = 4 

1680 XDRAW 2 Ai PX<VX<PL)),PY(VX<PL)): HCOlOR= 3: ROÌ= R: XDRAW 

2 AT PX<VX<PL>},PY(VX(PL)): GOTO 1620 
1690 : 

1700 REM ****COLPISCE LA PALLA**** 

1710 : 

1720 VÌAB 22: HÌAB 11: CALL - 958: PRINT "PREMI H PER COLF 
IRE LA PALLA* * 

1730 SOUND = PEEK’< - 16336): IF PEEK < - 16384) < > 200 ÌHEN 
1730 

1740 FOR ZZ = 1 TO !0:SGUND = PEEK ( - 16336): NEXT ZZ 
1750 GEÌ Ai: FRINÌ 

1740 RGÌ= R; SCALE= 2: XDRAW 2 AT PX(VX<PL)>,PY<VX<PL»: HCOLOR= 

3 

1770 I = INT <R / 16):R = R - I * 14 
1780 ZZ = FRE <0) 

1790 RESTOSE : FOR KK = 1 ÌO 29: READ AAÌ,AA: NEXT KK : DI = 

0 

1800 : 

1810 REM **f*CALCOLA DISTANZA DEL COLPO**** 

1820 : 

1830 NM = INT <11 * RND <D) ♦ 2:NQ = INT <11 * RND (D) 

* 2 

1840 FOR KK = 1 TO CN: READ Al: NEXT KK 

.1850 IF CN = 21 THEN 1870 

ItSO FOR KK = CN M TO 21 : READ AA: NEXT KK/ 

iS/0 IF EF = 0 THEN 1900 

ISSO FOR KK = 1 TO CN - 12: READ B1,B2: NEXT KK 

1890 D = 91 * NM * NI + B2 * Ni * Ai:DX = 0: GOTO 1970 

1900 D = - .5 * NM * NM * 14.6 * NM * Al 

1910 POR KK = 1 TO 9: REA tLAA~AA : NEXT KK 

1920 IF CN < 5 mi ZZ = CN: BOTO 1950 

1930 IF CN < 9 THEN ZZ = 4: GOTO 1950 

1940 ZZ = 5 

1950 FOR KK = ! TO ZZ: READ 81,82: NEXT KK 

1960 DX = B! * NG * B2 — 

1970 VC = D * COS T?T* 3.14159 / 32):XC = D * SIN <R * 3.1 
4159 • 32) ^ 

!98lT 4 tn’RX<VX<PL)) = 1 ÌHEN D = D - D / <2 * TC) : IRI<<VX<PL 
)• = 0 

>1999 IF WEX(VX<PL>) = 1 AND ÌCi < > "WEDGE" THEN D = 5:WEX 
<VX<PD) = 0 

2000 IF WEX(VX<PD) = 1 ÌHEN WEX<VX(PL)) = 0 
2010 IF ÌCi = "PUTÌ" OR ÌCi = "SANO" OR ÌCi = B PIÌCH H ÌHEN 
2040 

2020 IF I = 0 OR I = 2 THEN XC * XC ♦ UFXsYC = YC ♦ WY 

2030 IF I = 1 OR I = 3 ÌHEN XC = XC + WY:YC = YC ♦ WX 

2040 D = SQR (XC * XC ♦ YC * YC) 

a - ATki ,'ny / rvi 

2060 " IF YC = 0 7HENAN = 0: GOTO 2080 
2070 AN = ATN (XC / YC) 

2080 AN = AN ♦ A:XC = SIN <AN) :YC = COS (AN) 

2090 IF ! = 0 ÌHEN YC = * YCsXC = XC 

2100 IF I = 1 THEN T = XCsXC = YC:YC = T 

2110 IF I = 2 mi XC = - XC:YC = YC 

2120 IF I = 3 ÌHEN ì = XC :XC = - YCsYC = - ì 

2130 D2 = D 

2140 VÌAB 23: CALL - 958: PRINT “DISTANZA COLPO = 3": HÌAB 
11: VÌAB 22: CALL - 868: HÌAB 25: PRINT "COLPI = "PHX< 

VX(PD) 

2150 ROÌ= 0: HCOLOR= 3: SCALE* 1: XDRAW 1 Ai PX(VX(PL)),PY< 
VX(PL)):DI = SQR <<PX<VX<PD ) - XP) J 2 + <PY<VX<PL)) - 
YP) 4 2) * 2.2 

2160 VÌAB 23: HÌAB 18: CALL - 868: PRINT INT (DI) 

2170 : 

2180 REM ****FAÌÌ0 IL TIRO? **** 

J190 : 

2200 XDRAW 1 Ai PX<V.«PL)) 1 PY<V>:<PD) 

2210 IF DI > = D2 THEN 2580 

2220 PX(VX<PL» = PX(VX<PD) ♦ 2 * XC:PY<VX(PD) = PY<VX(PL) 

) + 2 * YC 
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2230 !F ABS <PX<VA'?U) - XG) > 3 THEN 2313 

2240 IF P8S <PY<yK<PLJJ - YG) > 4 THEN 2310 

2250 !F D! < .? * D2 AND ?» < > ’PUTT’ THEN 2310 
2260 FCR K = 1 TO 200 : SOUND = B EEK ( - 16336): HEXT X 

2270 VTAB 23: H T A8 1: CALI - 958: VTAB 22: HTAB 25: FRINÌ 

"PUNTI = *PHX(V/!<PD) 

2280 HTAB 10: PRIMI “HA! IMBUCATO!!' 

2290 PD = PO * 1 iTBX(PO) = VX(PL) 

2300 GOSUB 3060: GOTO 2790 
2310 PX = PX(«:(PL))i GOSUB 3230 
2320 : 

2330 REM ««FUORI LIMITE? «« 

2340 : 

2350 IF PX<VJ£<PL>> < = 2 THEN PXEV/OPL» = 10: GOTO 2400 

2360 IF PX<VX(PL» > = 258 THEN Px(WL)) * 249: GOTO 240 

0 

2370 IF PY<VX(PU> < = 2 THEN PY<V/(PL» = 10: GOTO 2400 

2380 IF PY(VAPU) > = 148 THEN PY(V/(PD) = 139: GOTO 240 

0 

2390 GOTO 2480 

2400 D2 = DI:PHX(VX<PL)) = PWKWKPL» ♦ 1 :PTXWWPL)> = PTX 
<UX(PU) * 1 
2410 GOSUB 3310 

2420 GOSUB 3300 

2430 VTAB 23: CALE - 958: PRIMI 'FUOR! LIMITE,..UN COLPO D 
! PENALITÀ'!*: VTAB 22: HTAB 25: PRIMI 'COLPI = "PH/KVX 
<PL» 

2440 FSR 22 = ! TO 2000: NEXT 22: GOTO 2790 
2450 : 

2460 REM ««CONTROLLA COLOR! SCHERMO**** 

2470 : 

2480 IF HB < ) ! THEN 2150 

2490 IF DI < 30 OR D2 - DI < 40 T HEN 2510 

2500 GOTO 2150 

2510 92 = 9! 

2520 GOSUB 3300 

2530 VTAB 23: CAU. - 958: PRIMI 'HAI COLPITO UN ALBERO 1 " 

2540 FCR 22 = 1 TO 1000: NEXT 22 

2550 XC - - XC:YC = - YC 

2560 GOSUB 3310 

2570 IF HB < >0 THEN 2560 

2580 VTAB 23: HTAB 1: CALL - 958: PRINT 'HA! MANDATO LA PA 
LIA A * INI (92)' METRI": FOR 0 B = 1 TO 1000: NEXT QP 
2590 PX * INI (PXWKPL)»: GOSUB 3230 
2600 IF HB < >7 THEN 2650 
2610 GOSUB 3300 

2620 VTAB 23: CALI - 958: PRINT ‘IN BUNKER'!...USA IL SANO 
.* :UEi(VX(PL>) = ! 

2630 FOR 22 - ! TO 1000: NEXT 22 
2640 GOTO 2790 
2650 IF HB < >5 THEN 2700 
2660 GOSUB 3300 

2670 VTAB 23: CALL - 958: PRIMI 'NEL R0U6H!!...NON USARE U 
N LEGNO.':IR5KV/.CPL» = 1 
2680 FOR 22 = 1 tq 1000: NEXT 22 
2690 GOTO 2790 
2700 r ? hB ( > 9 THEN ?790 

27io piK<w<PL)) = mwùi)) + ìiPmmpi)) = mmwD) 
* i 

2720 GOSUB 3300 

2730 VTAB 23: CALL * 953: PRINT "NELL'ACQUA ! !... .PENALITÀ-' 
DI 1 COLPO.* 

2740 VTAB 22: HTAB 25: PRINT “COLPI = "PMWSKPL» 


2750 

2760 

2770 

2780 

279-3 

2800 

2810 

2820 

2830 

2840 

2850 

2840 

2870 


2880 


2890 


2900 

2910 


2920 

2930 

2940 


2950 

2960 

2970 


2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 


3070 

3080 

3090 

3100 


3110 

3120 

3130 


XC = - XC:YC = - YC 
GOSUB 3310 
IF HB = 0 THEN 2790 
GOTO 2760 

HTAB 1: VTAB 22: CALL - 958 
IF F9 = PN THEN 2860 
NEXT PL 
GOTO 1290 

: 

REH ««STAMPA LO SCORE**** 

: 

HOME : TEXT : INVERSE 

Kwmiw 



K 

POR KK = 1 TO 23: HTAB !: VTAB KK: PRINT * ’: HTAB 39: 
VTAB KK: PRINT “ NEXT KK 

VTAB 3: HTAB 5: PRINT “LO SCORE PER LA BUCA «H: NORMAL 
: PRINT ; PRINT 

HTAB 12: PRINT C“ METRI PAR= “PAR 


VTAB 9: HTAB 4: PRINT “NOME";: HTAB 17: PRINT “BUCA 6 ;: 
HTAB 27: PRINT “PERCORSO" 

VTAB 11 

c OR PL = ! 70 PN 

HTAB 4: PRINT PMTDBKPL»:: HTAB 1B: PRINT PHX(TOX(PL) 
):: HTAB 29: PRINT PTCaBWPL)) 

VX(PL) = TDX(PL) 

NEXT PL 

HTAB ó: VTAB 21: INVERSE : PRINT “PAR DEL PERCORSO FIN 
ORA = PRINT GF: NORMAL 
GOSUB 3066 
NEXT H 
GOTO 310 
END 


'REM ««ROUTINE BATTUTA TASTO**** 

VTAB 24: HTAB 1: PRINT “PREMI IL ’:: INVERSE : PRINT “ 
TASTO*;: NORMAL : PRINT “ RETURN PER CONTINUARE...";: SET 
Al: CALI - 958: RETURN 

‘rem ««SCELTA DELLE ROUTINE**** 

VTAB 21: PRINT "INTRODUCI IL NUMERO DELLA TUA SCELTA.. 
.": PRIN T : HTAB 5: PRINT “0 PREMI “:: INVERSE : PRINT 
“RETURN*:: NORMAL : PRINT “ PER CONTINUARE.":: GET A!:A 
= VAL 1(4) \ RETURN 

VTAB 24: c OR RK = BN TO RN: HTAB HTX(RK): PRINT CLKRK 
; : : NEXT RK 
CC = BN 

VTAB 24: ^AB HTX(CC): FLASH : PRINT CLKCC);: NORMAL 


3140 SET Al: IF Al = 8 S e THEN 3190 

3150 IF Al < ) "N" THEN 3140 

3160 VTAB 24: HTAB HTJKCC): PRINT CLKCC) ::CC = CC ♦ 1 

3170 IF CC > RN THEN 3120 

3180 GOTO 3130 

3190 RETURN 

3200 : 

3210 REM ««ROUTINE COLORE SCHERMO**** 

3220 : 

Continua 


delle variabili, le linee 190—200 cari¬ 
cano il programma sopra lo schermo 1 
della Hi-Res. 

Le linee 230-240 caricano la routi¬ 
ne SCRN in Hi-Res (listato 3) e le 
tavole delle figure nella memoria nor¬ 
malmente usata per i programmi in 
Applesoft. 

Le linee ÌOO e 210 permettono di 
caricare il programma e i file binari 
soltanto una volta, anche se si può ese¬ 
guire il programma diverse volte in 
una stessa seduta. 

Il programma GOLF (listato 1) con¬ 
trolla tutte le altre routine compreso il 


programma CREARE (listato 2). Per¬ 
tanto, quando si vuole creare un per¬ 
corso, si può ancora fare RUN GOLF. 
Sarà visualizzato in tal caso un menù 
che comprende l’opzione di creare un 
nuovo percorso. Quando si è finito di 
creare il percorso, il computer ricarica 
automaticamente il programma 
GOLF. 

Il programma GOLF fa un uso mol¬ 
to efficace della porzione! di testo dello 
schermo Hi-Res. I dati relativi alla 
buca, al nome del giocatore, alle scelte 
del bastone e ai risultati di gioco sono 
tutti visualizzati con cura per una rapi- 


da consultazione. Una freccia sulla de¬ 
stra dello schermo Hi-Res indica la 
direzione nella quale soffia il vento a 
quella buca. 

Le linee .520—670 visualizzano una 
lista dei percorsi che sono stati salvati 
su dischetto. 

Le linee 690-910 permettono di in¬ 
trodurre il nome di ciascun giocatore. 
Sono previste sicurezze d’errore per la 
lunghezza del nome e gli errori di bat¬ 
tuta. 

Le linee 1000-1250 predispongono 
il percorso e i punteggi dei giocatori e 
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3230 POKE 2308, INT (<PX + 1) / 256): POKE 2309,PX + ! - INT 
«PX + 1) / 256) * 256 

3240 POKE 2310, INT <PY<VK<PL»): CALI 23Ì6 
3250 HE = PEEK (2314) 

3260 RETURN 
3270 ; 

3280 REM ****SUONO**** 

3290 : 

3300 FOR 2Z = 1 TO 10;SOUND = PEEK ( - 16336): NEXT ZZ: RETURN 


3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 


REM ««SPOSTAMENTO INDIETRO**** 

PX<W.<PL» = ?W/A?D) + XCsPYWKPL» = PY(VK<PL)) * 
YC 

PX = PXMKPL»: 60SU8 3230 
RETURN 

'rem ****DATI BASTONI*»* 

‘DATA *LE8NG\1,"FERRO*,7, B SAND B ,13,'PUTT*,20,-PITCH*, 
28 

DATA 1,10.2.13,3,16,4,19 

DATA 2.5,3,8,4,li,5.14,6.17,7.20,8.23.9,26 

DATA *rID40“,5,■MÈZZO" f 14,"LEéGEKO*,25 

‘REM ****DATI DISTANZA**** 

‘DATA 1ó3,142.3 22.1 ! 2,! 02,92,82.72,62,52,42,32 
DATA 22.1.4,26,70,50,15,-7.7,-3.6,-3 
DA T A -.5,14.6.-.5.14.6,-.2,4.8,.8,-1Q.8,.8,-10.8,.2,- 
2.4.-.9.12.2.-J.4.Ó.-.1.2 
DA 4 A io,-70,7.4.-51.5,7.4,-51.5, 6. 4,-44.5 
DATA 6,-42,4,-Ì8 

‘REM ****ROUTINE ERRORI**** 

IP PEEK (222) < > 5 THEN PRINT “ERRORE N. 8 PEEK (22 



2)“ A LÌNEA:*; PEEK (218) 

aP REMI UN TASTO PER R_ 

3550 PRINT DI; a CL0SE s : PRlNT D$. 
3560 PRIN T DS; U GPEN COURSE.LIST* 
3570 PRINT [)$;“URITE CGURSE.LIST 
2580 PRINT D$; B CLOSE B 
3590 LLf = 38 : GOTO 480 


PEEK (219) * 256: HTAB 4: 
5 'JlÉTÈ ÉìRSLLIST* 


PRINT 


PRINT 0 


visualizzano sul monitor l’immagine 
della buca. 

Le linee 1270-2820 sono utilizzate 
per lo svolgimento vero e proprio del 
gioco. 

La linea 1320 controlla quali gioca¬ 
tori non abbiano ancora completato la 
buca. 

Le linee 1390—1530 determinano il 
numero del bastone scelto, in modo 
che siano letti i dati esatti della distan¬ 
za e della direzione. 



Figura 2. Creazione del percorso. 


Le linee 1570—1680 permettono di 
scegliere la direzione in cui sarà colpi¬ 
ta la pallina. 

Le linee 1720—2160 sono usate per 
colpire la pallina. La freccia e la palli¬ 
na sono cancellate usando il comando 
XDRAW di modo che il display del 
percorso rimanga intatto. 

La linea 1830 sceglie due numeri ca¬ 
suali i quali sono usati nelle formule 
che si trovano nelle linee 1890, 1900 e 
1960. Queste formule sono utilizzate 



per calcolare la distanza e 1’ hook o lo 
slice del colpo. Nella figura 2, la varia¬ 
bile R rappresenta l’entità della rota¬ 
zione. I numeri 0, 1, 2 e 3 sono usati 
dal programma come punti di riferi¬ 
mento sullo schermo. 

La linea 1970 calcola XC e YC (figu¬ 
ra 3). Il vento viene aggiunto nelle 
linee 2020 e 2030. 

Gli angoli AN e A sono calcolati 
nelle linee 2050 e 2070. L’angolo A è 
positivo o negativo a seconda che sia 
un hook o uno slice (+DX o — DX). Il 
nuovo valore dell’angolo AN è calco¬ 
lato come si vede nella figura 3. XC e 
YC vengono poi ridotti proporzional¬ 
mente ai valori inferiori a uno. Questi 
valori vengono usati come spostamen¬ 
ti passo per passo della pallina da golf 
(figura 4). 

La routine SCRN, che funziona 
esattamente come l’istruzione SCRN 
della grafica in bassa risoluzione, ren¬ 
de facile l’individuazione dei rough, 
dei bunker, degli ostacoli d’acqua e 
degli alberi con il loro colore anziché 
con le coordinate X, Y. Tutto il con¬ 
trollo del colore sullo schermo si trova 
nelle linee 3230-3260. 

La routine SCRN viene usata per 
individuare il colore di un punto trac¬ 
ciato sullo schermo Hi-Res. Viene 
usata la sequenza di comandi riportata 
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sei proprio sicuro che il tuo computer ^ 
sia sempre al sicuro? 

Siete certi di aver messo al riparo il vostro computer dai più comuni rischi 
e incidenti che possono capitargli? Rispondete sinceramente 
a queste 7 domande, sia che abbiate già sottoscritto una polizza assicurativa, 

sia che ancora non l’abbiatefatto. 



Sempre più compatti e proprio per questo 
sempre più portatili (si pensi all’Apple //c), i 
personal si trasportano da casa all'ufficio, e 
viceversa, con estrema facilità. E se durante il 
tragitto si ha un incidente? Pagate voi? □ Sin No 




Andate al mare, in montagna, a casa di un 
amico e vi fermate lungo il tragitto per una 
commissione, un ladro vi ruha il computer dal 
portabagagli. Pagate voi ?□ Sìa No 



Partite per una vacanza e decidete di portare 
con voi il vostro personal Andate in 
albergo, in una casa in affitto o nella villa 
di vostro fratello, e succede qualcosa al vostro 
computer. Pagate voi ?□ Sì □ No 




Siete nel bel mezzo di un 'applicazione 
complicata. Non volete interrompen/i ma 
nemmeno rinunciare a un whisky on thè rocks 
o al caffè. Ahimè, il liquido finisce sulla 
tastiera mandando in cortocircuito il 
computer. Pagate voi?nsìo No 



vostro figlio si avvicina al computer senza 
essere visto e comincia a picchiarci sopra con 
un oggetto più duro del vostro computer. 
Pagate voi? a sì a no 




Se un corto circuito o uno sbalzo di tensione 
danneggia il computer, pagate voi? a sì □ No 


Se qualche vostro amico o una vostra 
impiegata si fa male maneggiando il vostro 
personal, pagate voi? a Sì a No 


RISPOSTE 

7 No. il vostro computer è davvero ai sicu¬ 
ro. Bravi. 

6 No e 1 Sì. valutate bene se II caso In cui 
avete risposto sì ha scarse possibilità di 
verificarsi. Potrebbe valere la pena di ri¬ 
schiare e di lasciare le cose come stanno 
Da 2 a 7 Sì. Affrettatevi a leggere il box qui 
sotto, perché il vostro computer non è 
affatto al sicuro, il che potrebbe causarvi 
un sacco di fastidi e farvi perdere un muc¬ 
chio dì soldi. 


e applicando 

vi mettono al sicuro 

Sicuramente sarete convinti che esista già da tempo una 
polizza per assicurare il personal computer Non è così 
Finora tutte le compagnie di assicurazione hanno creato 
polizze nate per garantire i grossi centri di elaborazione 
dati e solo in seguito hanno adattato queste polizze alle 
esigenze di coloro che vogliono assicurare il proprio perso 
nai Ma una polizza adattata non può certo paragonarsi a 
una polizza nata apposta per soddisfare le esigenze del 
possessore di un personal computer Applicando, in colla¬ 
borazione con la Ras una delle piu importanti compagnie di 
assicurazioni italiane ha studiato a fondo il problema E 
nata cosi la Polizza Applicando la prima e per il momento 
unica assicurazione che copra tutti l rischi relativi al posses 
so e all uso di un personal e delle sue periferiche (stampan 
ti drive, video,ecc) Applicando è orgogliosa di presentarla 
In anteprima ai suol lettori e di offrire loro la possibilità di 
sottoscriverla nella maniera più semplice Basta leggere 
attentamente le condizioni pubblicate alla pagina seguen 
te, compilare il tagliando e spedirlo a Editronica srl. Polizza 
Applicando Corso Monforte 39 20122 Milano Avrete cosi 
risolto per sempre, tutti i vostri problemi 










































Condizioni generali di assicurazione. 


1) Premessa 

a) l'adesione alla presente polizza è riservata ai proprie¬ 
tari di un Personal Computer il cui valore stabilito 
come alla Condizione 6) sia superiore a L. 2.500.000 
IVA compresa; 

b) l’adesione alla presente polizza da parte dei proprie¬ 
tari di personal Computer avverrà a mezzo invio di 
apposita cartolina con il relativo importo di premio; 

c) l'intestatario della cartolina sarà considerato a tutti gli 
effetti come l’Assicurato; 

d) la garanzia sarà operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante dal timbro posta¬ 
le. La copertura avrà durata un anno, sempreché la 
data di inizio della garanzia sia compresa nel periodo 
di validità della convenzione; 

GARANZIE PRESTATE E CONDIZIONI DI 
ASSICURAZIONE 

2) Sez. I - Danni materiali 

Derivanti da: 

a) incendio, opera di spegnimento e salvataggio, fulmi¬ 
ne, esplosione, scoppio, implosione; 

b) acqua e liquidi in genere, inondazione, alluvione, 
trombe, uragani, gelo, ghiaccio, neve, grandine, va¬ 
langa, caduta di massi e altri simili eventi; 

c) superamento del muro del suono, caduta di aeromo¬ 
bili o cose da essi trasportate; 

d) corto circuito, variazione di corrente, sovratensione 
arco voltaico, deficienze di isolamento, effetti di elet¬ 
tricità statica, induzione; 

e) imperizia, negligenza, errata manovra, nonché azioni 
dolose e colpose in genere; 

f) trasporti e smontaggi connessi con lavori di pulizia o 
di manutenzione; 

g) furto e rapina; 

h) terremoto, maremoto od eruzioni vulcaniche; 

i) persone che prendono parte a tumulti popolari, scio¬ 
peri, sommosse e che perpetrino indivudualmente od 
in associazione atti di terrorismo o sabotaggio verifi¬ 
catisi in occasioni di serrate. 

3) Sez. Il - Responsabilità Civile Terzi 

L’assiGurazione si intende inoltre prestata per la Respon¬ 
sabilità Civile derivante all’Assicurato dalla proprietà e 

dall’uso personale del Computer assicurato identificato 

nel certificato di assicurazione. 

I massimali di garanzia si intendono fissati in: 


L. 100.000 000 per sinistro con il limite di 

L. 100.000.000 per ciascuna persona deceduta o che 
abbia subito lesioni personali 

L. 100.000.000 per danni a cose e/o animali. 

4) Esclusioni 

La Società non è obbligata per i danni dovuti a: 

- dolo dell'Assicurato; 

- corrosione, deperimento, logoramento che siano con¬ 
seguenza del normale uso o funzionamento o causati 
dagli effetti graduali degli agenti atmosferici; 

- per i quali deve rispondere il fornitore, venditore o loca¬ 
tore degli enti assicurati per legge o per contratto, o per 
inadeguata manutenzione; 

- causati da difetti di materiale o di costruzione che esi¬ 
stevano già all’atto della stipulazione della polizza ed 
erano a conoscenza dell'Assicurato; 

- causati direttamente od indirettamente da avvenimenti 
bellici, sommosse militari, invasioni, adozione di misure 
da parte di potenze straniere, rivoluzione, ribellione, 
insurrezione, assunzione od usurpazione di potere di 
carattere militare, sequestri; 

- verificatisi in occasione di esplosione, radiazione nu¬ 
cleare o di contaminazione radioattiva; 

- uso improprio del bene (mancato rispetto delle norme 
di impiego dettate dal costruttore); 

- danni estetici (quelli interessanti l'involucro esterno che 
non sia conseguenza di un danno risarcibile a termine 
della presente polizza); 

- guasti casualmente riconducibili ad interventi, a ripara¬ 
zioni e/o modifiche effettuate da un centro non autoriz¬ 
zato dalla casa costruttrice della macchina; 

- danni indiretti in genere. 

5) Operatività della garanzia 

a) La garanzia è operante solamente se gli enti assicurati 
sono ubicati presso il domicilio dell’Assicurato od in 
luoghi diversi da questi se in possesso dell’Assi¬ 
curato. 

b) La garanzia è pure efficace se i beni si trovano sull’au¬ 
tovettura in uso all’Assicurato, salvo i seguenti casi: 

- qualora l'autovettura venga lasciata incustodita dal¬ 
le ore 22 alle ore 6; 

- qualora l’autovettura regolarmente chiusa a chiave 
venga lasciata incustodia dalle ore 6 alle ore 22 e gli 
enti assicurati non opportunamente occultati nel 
bagagliaio. 


c) Limitatamente ai danni di rottura la garanzia è effica¬ 
ce solamente nel caso questi siano dovuti ad un inci¬ 
dente in cui rimanga coinvolto anche il veicolo in uso 
dell’Assicurato che trasportava i beni assicurati. 

d) Per gli enti per i quali non è stato stipulato il contratto 
di manutenzione e/o assistenza con la casa costrut¬ 
trice e/o ditte di essa mandatarie qualora l'ente ri¬ 
chieda per norma del fornitore detto contratto, la 
Società non risponde dei danni verificatisi in conse¬ 
guenza di guasto meccanico e/o elettrico salvo che 
l’Assicurato provi che tale guasto sia causato da even¬ 
to esterno agli enti.assicurati o da incendio originato 
da uno di questi enti. 

6) Somma Assicurata 

La somma assicurata per ciascun ente deve corrispondere 
al costo di rimpiazzo, ossia al prezzo di listino della casa 
costruttrice ed escluso ogni sconto o prezzo di favore di 
un ente nuovo, eguale od equivalente per caratteristiche, 
prestazioni e rendimento economico. 

7) Premio 

Per ogni singola applicazione è stabilito un premio forfet- 


tario omnicomprensivo così calcolato: 

Somma assicurata 

Premio 

da 2.500.000 a 3 000 000 

L. 

50 000 

da 3 000 000 a 5 000 000 

L 

65 000 

da 5.000 000 a 7.000 000 

L 

80 000 

da 7.000.000 a 10 000 000 

L. 

100 000 

da 10.000 000 a 15.000 000 

L. 

120 000 

da 15 000 000 a 20 000.000 

L. 

150.000 


8) Franchigia 

per ogni e qualsiasi danno che colpisca gli enti assicurati è 
stabilita una franchigia di: 

L. 50.000 per somma assicurata fino a L. 5.000.000 
L. 100.000 per somma assicurata superiore a 
L. 5.000.000 

Per sinistri causati da eventi come ai punti g) ed h) delle 
garanzie prestate, la Società liquiderà i danni sotto dedu¬ 
zione di uno scoperto pari al 20% della somma assicurata, 
col minimo delle franchigie sopra stabilite. 

9) Rinvio alle norme di legge 

Per tutto quanto non è qui diversamente regolato, valgono 
le norme di legge. 




e applicando 

vi mettono al sicuro 


Sì! Desidero assicurare i miei/il mio computer, inviatemi a stretto giro di posta il certificato emesso dalla Ras. 
L'assicurazione avrà valore a decorrere dalie ore 24 del giorno di spedizione della mia adesione. Per la data fa fede il 
timbro postale. 


COGNOME. 

NOME. 

INDIRIZZO. 

CAP. CITTA' . 


. PROVINCIA. 

. N. 

Assicuro i/il seguente personal: 
Marca e Modello 

N. di matricola 

Valore (IVA compresa) 



Con le seguenti periferiche (stampanti, video, drive, hard disk, ecc) 

Marca e Modello N. di matricola Valore (IVA compresa) 


Nel caso non abbiate sufficiente spazio ricopiate su un foglio il testo completo di questo tagliando indicando tutti i prodotti che intendete assicurare. 

Per un totale complessivo di Lire.su cui pago il premio calcolato in base alla tabella riportata qui sopra (su fondoverde). 

Allego assegno non trasferibile di Lire.intestato a Editronica srl, Corso Monforte 39,20l22Milano. 













































Listato 2 - CREARE 


10 REM ************************ 

29 REM * CREARE * 

30 REM * DI GARY KNOX * 

49 REM « COPYRIGHT (0 1985 * 

50 REM * BY APPLICANDO 4 * 

60 REM * MÌCROSPARC, INC * 

70 REM ************************ 

80 : 

90 REM ****ROUT!NE DI PREPARAZIONE**** 

100 Di = CHRi (4)sR* 2 CHRi (13); TEXT : HOME 
110 IF PEEK (2791) = 15 AND PEEK (2793) 2 32 AND PEEK (1 
04) = 64 THEN 140 

120 MTAB 10; FRI NT "UN MOMENTO. 8 : IF PEEK (104) < > 6 

4 THEN POKE 103,1; POKE 104,64; POKE 16384,0; PRINT Di 
“RUN CREARE 6 

130 PRINT DÌ 8 BLQAD SCRN" : PRINT DTBLOAD GOLF .SHAPES 8 ; POKE 
232,231; POKE 233,10 
MO DI = 4 

150 DIM SX<50> ,$Y(50) ,SH(50> 

160 DIM NÌ(59),KQ(50),DÌÌ<50) 

170 HOM c 

180 TEXT : MTAB 10; CALI - 868: INPUT ‘INTRODUCI IL NOME D 
EL PERCORSO ":N$: IF N$ 2 88 THEN PRINT CHRi (4)“RUN 
GOLF 8 

190 REM ****CONTRQLLA NOME PERCORSO**»* 

209 Ni 2 e 6 s ^ m 

210 FOR ! 2 1 TO LEN (Ni); IF ( MI Di (Ni.1,1) < “A 8 OR MIDI 
(Ni.! .1) > fi 2 8 ) AND ( MAL ( MI Di (NI.1,1)) = 0) THEN CALL 

- 958: PRINT ‘NOME DEL FILE NON UALlDO 8 : GOTO 180 

229 NEXT 

230 IF LEN (Ni) > 7 THEN CALL - 958: PRINT ‘IL NOME DEL 
PERCORSO NON PUD' ESSERE PIU" UNGO DI SEI CARATTERI 

6 : GOTO 180 

240 QNERR GOTO 2460 

250 PRINT Di ;"OPEN COURSE.LIST 8 

260 PRIN 1 Di: 8 READ COURSE.LIST 8 

270 INPUT NUM: IF NUM 2 0 THEN 350 

280 FOR K = 1 TO NUM 

290 INPUT MÌ,KQ 

300 IF Hi < ) Ni THEN 340 

310 MTAB 15: PRINT "*** SPIACENTE,IL PERCORSO 6 RIGHTi (Ni, 

LEN (Ni) - 1): PRINT "*** E GIÀ' SUL DISCHETTO. 8 
320 PRINT •*** USA UN ALTRO NOME DI PERCORSO. 8 
330 F = 1 : GOTO 350 
340 NEXT K 

350 PRINT Di; 8 UOSE COURSE.LIST 8 
360 IF F = 1 THEN f 2 0: GOTO 189 

379 : 

380 REM ****CREA BUCA GOLF**** 

390 : 

400 ONERR GOTO 2350 

410 HOME : MTAB 11: HTAS 27: PRINT "(MASSIMO IO) 8 : MTAB 10: 
INPUT ‘INTRODUCI NUMERO DI BUCHE DEL PERCORSO 8 ;AÌ:H 2 
MAL (Ai): IF H < =0 OR H ) 10 THEN 410 
420 PRINT : PRINT : PRINT "OGNI BUCA RICHIEDE CIRCA 36 SETT 
ORI 8 : PRINT "IL TUO PERCORSO RICHIEDERÀ' ";H * 36; 8 SET 
TORI T ; PRINT ; PRINT "CONTINUI? (S/N) SET Ki: IF K 
i < ) "S 8 THEN PRINT : PRINT CHRi (4) 8 RUN GOLF" 

430 FOR KG = 1 TO H: HGR : GOSUB 1900 

440 : 

450 REM ****RICEME DATI FIGURA**** 

460 : 

470 FOR K = 1 TO 6 • 

430 READ 3Ì,SN,3S,R,CLR 

490 IF K ) 2 THEN HOME : MTAB 22: PRINT "C'E QUALCHE 8 Si 8 
SULLA": PRINT "BUCA "KQ" ?" : MTAB 24: PRINT "INTRODUCI 
3 0 N 5 ; ; SET Ai: IF Ai = "N" THEN 980 

590 IF K > 2 AND Ai < > 8 S 8 THEN 490 


510 HOME : SCALE 2 ‘SS: ROT= 0:QG 2 4 SS:R = 0:F = 0 
520 INVERSE 
530 : 

540 REM «««DISEGNA LA FIGURA SULLO SCHERMO*** 

550 : 

560 MTAB 22: MTAB (26 - LEN (Si)) / 2: PRINT “POSIZIONE 8 

Si 

570 NORMAL 

580 ! vTAB 23: INPUT "QUANTE RIGHE DALLA SINISTRA ";AÌ:LE 2 MAL 
(Ai) 

590 MTAB 23: CALL - 868: INPUT "QUANTE RIGHE DALL'ALTO S ;A 
Ì:LT = MAL (Ai) 

600 X 2 18 * LE :Y = 10 * LT - 10: IF X > 260 OR Y > 150 THEN 
HOME : MTAB 21: INVERSE : PRINT "PROMA ANCORA" : NORMAL 
: GOTO 560 

610 IF X < 2 0 OR Y < 2 0 THEN HOME : MTAB 21: IWERSE : 

PRINT "PROMA ANCORA" : NORMAL : GOTO 560 
620 RGT= R: XDRAW SN AT X,Y 

630 HOME : MTAB 22: PRINT Si 8 :CAMBI LA POSIZIONE* S/N)? " ; : GET 
Ai: IF Ai 2 n S' THEN XDRAW SN AT X.Y: GOTO 510 
640 IF Ai < > S N S THEN 630 
650 TX = X:TY = Y 

660 IF K = 2 THEN XDRAW SN AT X,Y: HCOLOR= CLR: DRAW SN AT 
X.Y : GOTO PIO 

670 IF K = 3 THEN XDRAW SN AT X,Y: HCOLGR 2 CLR: DRAW SN AT 
X.Y: GOTO 910 

680 IF K > 3 THEN XDRAW SN AT X,Y: HCOLOR 2 CLR: DRAW SN AT 
X ,Y : GOTO 880 

690 : 

700 REM ****RUOTA IL TEE**** 

710 : 

720 HOME : MTAB 21: MTAB (23 - LEN (Si)) / 2: INVERSE : PRINT 

h pQg j 7 j r&jj: * . MORM^L 

730 MTAB 22: CALI 868: PRINT 3 R=ORARIO E=PNTIORARIO F=FI 
NITO 9 

740 CALL - 868: HTAB 10: PRINT 3 C=CAMBI A POSIZIONE TEE 8 
750 XDRAW SN A T X.Y: ROT= R: XDRAW SN AT X.Y 
760 HTAB 1: 'MTAB 24: CALI - 368: PRINT "PREMI IL TASTO CHE 
MUDI.. 8 :: 6E T Ai 

779 IF Ai 2 «F" THEN 910 

780 IF Ai = "R" THEN R = R ♦ 8: GOTO 820 

799 IF Ai = ‘E D THEN R 2 R - 8: GOTO 820 

809 IF Ai 2 =C B THEN XDRAW SN AT X.Y: GOTO 510 

310 GOTO 760 
320 IF R < 9 THEN R = 56 
839 IF R > 64 THEN R = 8 
849 GOTO 750 
uB59 : 

860 REM ****SPOSTA 'LA FIGURA**** 

370 : 

380 HOME : DI » DI - 1: IF D! > 0 THEN POKE - 16303,0: GOSUB 
1610: POKE - 16304,0: POKE - 16301,0: POKE - 16297,0 
890 C = 0:TX = X:TY = Y:TI = 1 
990 GOSUB 1690 

910 IF K = 1 THEN XT = TX:YT 2 TY 

920 IF K = 2 THEN XG 2 TX:YG = TY 

930 ZZ 2 FRE (0) 

940 IF K < 3 THEN 980 

950 HOME : MTAB 23: PRINT 8 ALTRO “Si 8 ? 3/N? GET Ai: IF 
Ai = "N 8 THEN 980 
960 IF Ai < > E S 8 THEN 950 

979 GOTO 510 

980 NEXT K 

990 K 2 Q M 
1000 : 

1010 REM ««««CANCELLA NUMERI CONFINE*»** 

1920 : 

1030 HCOLOR= 0 

1040 FOr"j = 15! TO 159: HPLOT 0,J TO 279,J: NEXT J: FOR J = 

0 TO 159: HPLOT 263,J TO 279.J: NEXT J 
1050 HOME : MTAB 21: PRINT "STO SALVANDO LA BUCA "KQ" ...... 


1060 EL = 1 

1079 QNERR GOTO 2350 

1080 PRINT : PRINT Di; 8 ESAME"Ni 8 .HOLE B KG 8 ,AI2900,LÌ1FFF" 

1090 POKE - 16303,0: HOME :C 2 0:F 2 0 

HOC : 

1110 REM ****DETERMINA IL PAR**** 

112,9 : 

1130 MTAB 19: PRINT ‘PER ESSERE AIUTATO A DETERMINARE IL PA 
R PER LA BUCA "KQ: 

1140 PRINT 8 DEMI SPOSTARE LA PALLINA 8 : PRINT "LUNGO IL FAI 
RWAY FINO AL GREEN . 6 

Continua 
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1150 8GSUB 2020:C = 3:TI = 2 

I1Ó0 POKE - 16304,0: PQKE - 16301 ,0: FOKE -16297,0 

1170 CLR = 3:SN = 5: SCALE= 1 

UBO B$ = 

■190 C = G:X = XTsY = YT:CX = 0:CY = 0 
1200 GGSUB 1690 

1210 POKE - 16303,0; HOME : RESTORE 
1220 VTAB 5: PRINT "LA DISTANZA FINO ALLA BUCA N. B KQ 

1230 S/TAB 8: HTAB 15:C = INT (2.2 * C); PRINT C B METRI 3 

1240 VTAB 12; INPUT 2 INTRODUCI IL P AR CHE VUOI PER QUESTA 

BUCA ; 3 ;A$ : PAR = VAL <A*>: IF PAR < = 1 THEf4 VTAB 2 

2: PRINT “PROUA ANCORA., : GOTO 1240 
1250 : 

1260 REM «««METTE I DATI SUL DISCHETTO»*** 

1270 : 

1280 EL = 2 

1290 PRINT D$; a QPEN n N$ 3 /KS 
1300 PRINT W: 5 URITE , N$". B KQ 
1310 PRINT C;R$;PAR 
1320 PRINT XT;RÌ;YTsR$iX6sW;YG 
1330 PRINT D$;"CLGSÉ B NV. KQ 
1340 Q = 0 
1350 NEXT KQ 

1360 TEX7 ; HOME ; MTAB 10: PRINT "UN MOMENTO PREGO.. ., / 

1370 IF NUM = 0 THEN NUM = NUM 4 1 : GOTO 1470 
1380 E- = 3 

1390 PRINT D$; 3 OPEN COURSE.LIST" 

1400 PRINT D*; C READ CQURSE.LIST 5 
1410 INPUT NUNsNUM = NUM ♦ 1 
1420 FOR K = 1 TO NUM - 1 
1430 INPUT N$(K),KQ(K) 

1440 NEx~r K 

1450 PRINT D$/CLOSE COURSE.LIST" 

1460 El = 4 

1470 PRINT D$: 3 OPEN COURSE. LIST k 
I486 PRINT D$; "URITE COURSE.LIST" 

1490 PRINT NUM 
1500 IF NUM = 1 T HEN 1540 
1510 FOR K = 1 T 0 NUM - 1 
1520 PRINT N$(K);R$;K9<K) 

1530 NEXT K 

1540 PRINT N$;R*:H 

1550 PRINT Ws'CLOSE COURSE .LIST’ 

1560 7Ex~ : HOME : VTAB 10; PRINT 3 UN MOMENTO PREGO. " 

1570 °RINT DSj'RUN GOLF* 

1580 RE* «**RQU71NE**« 

1590 REM ****ISTRUZIONI**** 

1600 ; 

lélO VTAB 5; PRINT “PER SPOSTARE LA FIGURA USA QUESTI TASTI 
/: VTAB 8; PRINT “ESPOSTA IN ALTO E A SINISTRA” : PRINT 
"ESPOSTA IN ALTO': PRINT a E=SPOSTA IN ALTO E A DESTRA" 

1620 PRIN T "ESPOSTA A SINISTRA* : PRINT ESPOSTA A DESTRA" 

; PRINT 3 2=SPOSTA IN BASSO E A SINISTRA" 

1630 PRINT ESPOSTA IN BASSO": PRINT ESPOSTA IN BASSO E 
A DESTRA 3 : PRINT : PRINT SFINITO DI SPOSTARE PRINT 
"SCANCELLA ARRETRANDO" 

1640 6CSUB 2020 
1650 RETURN 
1660 : 

1670 REM ««ROUTINE DISEGNO**** 

1630 : 

1690 IWERSE ; VTAB 21: HTAB 16: PRINT "Q U E": NORMAL : PRINT 
"PREMI UN TASTO";: INVERSE : HTAB 16: PRINT "A D 3 : HTAB 
16: PRINT 3 2 X C* : NORMAL 

1700 PRINT *F = FINITO B = ARRETRA E CANCELLA" ; : VTAB 

1710 B$ = n " 

1720 SET A» 

1732 IF A$ = a F l THEN 1860 

1740 SOSUB 2060 

1750 IF Pti < > "B" THEN 1790 


ma^m 


1760 IF A* = "8" THEN HCQLQR* 0: DRAU SN AT X,Y:C = C - I: 

F = 1 

1770 IF C = < 0 THEN A$ = B$:B* = 33 : GOTO 1740 
1780 A* = RIGHTI (B$.1):B$ = LEFT* <B$, LEN (B$) - 1): GOTO 
1740 

1790 IF F = 0 OR TI = 2 THEN 1830 

1800 HCQLQR= 0: DRAU SN AT X,Y:X = X - CX:Y = Y - CY: HCGLOR= 
CLR:F = 0 

1810 DRAU SN AT X,Y 
1820 GOTO 1720 

1830 IF TI = 2 AND LEN (B$> = 254 THEN B* = RIGHT* (B$, LEN 
(W) - 1): GOTO 1850 

1840 IF LEN <B*> = 254 THEN Q = Q + !:SX(Q) = X:SY(Q) = Y: 

TX = X;TY = Y:SH(Q) = SN:DI$(Q) = B$:B$ = "" 

1850 C = C 4 isX = X 4 CX:Y = Y 4 CYjB$ = B$ 4 Al: HCOLOR= C 
LR: DRAU SN AT X,Y: GOTO 1720 
1860 RETURN 
1870 : 

1830 REM ««DISEGNA CONFINE**** 

1890 : 

1900 HCGLOR= 3: HPLOT 0,0 TO 0,150 TO 260,150 TO 260.0 TO 0 
.0: FOR KK = 0 70 260 STEP 10: HPLOT KK,148 TO KR,152: HPLOT 
KK.O TO KK,2: NEXT KK 

1910 HPLOT i,o TO 1.150: HPLOT 259,150 TO 259,0 
1920 FOR KK = 0 TO 150 STEP 10: HPLOT 0,KK TO 2,KK: HPLOT 2 
58.KK TO 263,KK: NEXT KK 
1930 : 

1940 REM ««DISEGNA NUMERI**** 

1950 : 

1960 SCALE* I: HCQLOR* 3 

1970 FOR KK = 1 TO 39: READ RR,SN,XC,YC: ROT= RR: DRAU SN AT 
XCjYC: NEXT KK 
1980 RETURN 
1990 : 

2000 REM ****RICEVE BATTUTA TASTO**** 

20 1 0 : 

2020 'VTAB 24: PRINT "PREMI IL ■;: INVERSE : PRINT "TASTO";: 
NORMAL : PRINT " RETURN PER CONTINUARE../;: 6ET A$: HOME 
: RETURN 
2030 : 

2040 REM ««RICEVE SPOSTAMENTI DISEGNO**** 

2050 : 

2060 IF A$ = "9* THEN CX = - 1sCY = -1: GOTO 2140 
2070 IF A* = "U e THEN CX = G:CY = - 1: GOTO 2140 

2080 IF A$ = "E" THEN CX = 1:CY = - 1: GOTO 2140 

2090 IF A'$ = "A" THEN CX = - 1:CY = 0: GOTO 2140 

2100 IF A* = "D* THEN CX = 1:CY = 0: GOTO 2140 

2110 IF A$ = "Z" THEN CX = - 1 sCY = 1: GOTO 2140 

2129 IF = 3 X 8 THB* CX = 0:CY = 1: GOTO 2140 

2130 IF A$ = "C E THEN CX = 1:CY = 1: GOTO 2140 

2140 RETURN 

2150 GOTO 250 
2160 : 

2170 REM ««DATI NUMERAZIONE FIGURE**** 

2180 : 


2199 DATA 0,7,265,12,0,3,268,22,0, 9,265,32,0,10,268,42,0, 
li ,265,Si 

2200 DATA 32.12,268,57,0,13,265,72,0,14,265,82,0,12,265,92 
,0,7,265,102 

2210 DATA 0,6.269.102,0,7,265,112,0,7,270,112,0,7,265,122, 
0.8 ,273,122 

2220 DATA O,7,265,132,0,9 ,270,131,0,7,265,142,0,10,273,14 
2.0.8,21,159 

2230 DATA 0,10,41,159,32,12,61,152,0,14,80,159,0,7,98,159, 
0.6,101.159 

2240 DATA 0,7.115,159,0,8,123,159,0,7,135,159,0,10,143,159 
,0,7,155,lo9 

2250 DATA 32,12.163,152,0,7,175,159,0,14,181,159,0,8,199,1 
59.0.6,201,1Ì9 

2260 DATA 0,8,219,159,0,8,225,159,0,8,239,159,0,10,244,159 


2270 : 

2280 REM ««DATI FIGURE**** 

2290 : 

2300 DATA 2 TEE S .2.1. 0.3/6REEN*,15,1, 0,6,"ALBERO" 
,0,1 , a R0U6H ,4.2, <5,5 

2310 DATA 3 BUNkEk°,4,2 ,0,7, ' OSTACOLO D'ACQUA",3,2 


,3,2 

,5 


2320 : 

2330 REM »** ROUTINE D'ERRORE *** 

2340 : 

2350 CALI. - 3288:ER = PEEK (222) 

2360 IF ER = 4 THEN PRINT 5 IL DISCHETTO E' PROTETTO IN SCR 
ITTURA*: GOTO 2430 

2370 IF ER = 6 THEN PRINT ■FILE NOT FOUND*: GOTO 2430 
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2380 IF ER = 8 THEN PRINT a I/O ERROR 8 : GOTO 2430 

2390 IF ER = ? THEN PRINT "DISK FULL': GOTO 2430 

2400 IF ER = IO THEN PRINT ‘FILE PROTETTO*: GOTO 2430 

2410 IF ER = 1! OR ER = 13 THEN PRINT "ERRORE DI NOME DEL 

FILE 5 : INPUT "INTRODUCI UN NUOVO NOME DI F!LE';N$:N$ = 

3 5" + N$ 

2420 PRINT 'ERRORE N. * ;ER* A LINEA 8 ; PEEK (2S8) ♦ PEEK (2 
19) * 256 

2430 PRINT "PREMI UN TASTO QUALUNQUE PER CONTINUARE': GET K 
$: PRINT 

2440 ON Et GOTO 1050,1290,1360,1470 
2450 GOTO 180 

2460 CAlL - 3288: PRINT W'ClQSE": IF PEEK (222) < > 5 THEN 
PRINT 'DISK ERROR N.*j PEEK (222): PRINT «premi iJN JAS 
TO PER PROVARE ANCORA": GET k$: PRINT : HOME : GOTO 180 
2470 PRINT D$DOLOSE COU.RSE.LIST" 

2480 PRINT W; n OPET4 COURSE.iIST' 

2490 PRINT D*;'URITE COURSE.LIST* 

2500 PRINT 0 ‘ 

2510 PRINT D$;'CLOSE COURSE.LIST": GOTO 250 





Alcuni esempi di buche realizzate 
con il programma GOLF. E 
possibile inserire lungo il percorso 
tutti gli ostacoli d'acqua o di sabbia 
che si vuole, simulare un gruppo di 
alberi che rendano più difficile il 
percorso di una buca, oppure 
piazzare una o due file di piante ai 
margini della buca, sempre al fine di 
rendere il gioco meno facile e quindi 
più interessante e variato. 







































































Mille programmi 



Stai per acquistare un personal 
computer Apple? 

Vorrai sapere che cosa puoi farci. 
Questo volume è un aiuto indispen¬ 
sabile, una guida ragionata e com¬ 
pleta di tutti i programmi disponibili 
in Italia. Prima di fare il tuo acquisto 
non puoi non consultarlo, perché 
solo se avrai a disposizione il pro¬ 
gramma o i programmi che ti inte¬ 
ressano la tua scelta non ti lascerà 
deluso. 


perle 


Hai appena acquistato un perso¬ 
nal computer Apple? 

Senza questa raccolta di program¬ 
mi non potrai mai sapere quali e 
quanti utilizzi potrai farne. 


Possiedi già da tempo un perso¬ 
nal computer Apple? 

Allora non c’è bisogno di dirti quan¬ 
to può essere prezioso questo libro: 
sai già che il tuo computer, senza 
programmi, è come un’auto senza 
benzina. E poiché non c’è limite alla 
fantasia e all’inventiva, consultando 
questa guida scoprirai utilizzi im¬ 
pensati per il tuo personal. Utilizzi 
che ti permetteranno nel lavoro, nel 
tempo libero, nel gioco o nello stu¬ 
dio, di essere sempre il più aggior¬ 
nato, il più organizzato, il più soddi¬ 
sfatto... 


Ordinale subito. 
Sarai fra i primi 
a riceverle. 


' / r * *■ \** > i rV* 

-, * M ~ * g » t 

r' f * ** • 


Le Pagine del Software 
sono un supplemento 
semestrale di Applicando, 
il mensile per i personal 
computer Apple. 
Acquistarle singolarmente 
costa 12.000 lire. 

Per chi si abbona ad 
Applicando sono in regalo. 


Desidero ricevere, senza aggravio di spese postali, Le Pagine del Software con la 
seguente formula (segnare la casella di proprio interesse): 

□ 12.000 lire per ricevere l’edizione Autunno 1984 de Le Pagine del Software 

□ 50.000 lire per ricevere 10 numeri di Applicando e in regalo l’edizione Autunno 1984 
de Le pagine del Software. 


COGNOME E NOME. 

VIA. N. 

CAP. CITTÀ. PR0V. 

□ Allego assegno non trasferibile di L.intestato a Editronica Srl. 

□ Allego ricevuta di versamento di L.sul CC postale N. 19740208 intestato a Editronica Srl, 

Corso Monforte 39, 20122 Milano. 

□ Pago fin d’ora con la mia carta di credito Bankamericard N.scadenza. 

Data. Firma. 

□ Desidero fattura. Il mio C.Fisc /P iva è. 


Ritagliare, compilare e 
spedire a: Editronica Srl, 
Corso Monforte 39, 
20122 Milano. 
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Figura 4 


qui sotto per controllare il colore di un 
punto sullo schermo con le coordinate 
X, Y: 


POKE 2308,INT((X+l)/256) 
POKE 2309,(X+1)-INT((X+1) 
/256)*256 

. POKE 2310,INT(Y) 

CALL 2316 
C = PEEK (2314) 


Uno dei valori di colore da 0 a 7 sarà 
memorizzato nella variabile (C). La 
routine può gestire automaticamente 
sia la pagina 1 sia la pagina 2 della 
grafica senza alcuna programmazione 
speciale da parte dell’utente. 

L’istruzione SCRN può rendere il 
numero esatto del colore solo se il 
punto che viene controllato è circon¬ 
dato da altri punti dello stesso colore o 
si trova alla loro periferia. 

Questo problema è causato dal mo¬ 
do in cui i colori vengono tracciati nel¬ 
la grafica ad alta risoluzione. I colori 
dispari appaiono nelle colonne dispari 
e i colori pari appaiono nelle colonne 
pari. 

Modifiche eventuali 

E possibile cambiare i dati delle fi¬ 
gure che si trovano nelle linee 
2300-2310 del programma CREA¬ 
RE. I dati sono organizzati come se¬ 
gue: nome della figura, numero della 
figura, scala, rotazione, colore. 

La tavola delle figure comprende le 
seguenti figure: 


1. Palla 

2. Tee 

3. Albero e acqua 

4. Rough e bunker 

5. Puntino 

6-14. Cifre da 0 a 9 
15. Green 


Listato 3 - SCRN 


090C- 

4C 

44 

0A 

AD 





0910- 

04 

89 

80 

00 

09 

AD 

05 

09 

0918- 

80 

82 

09 

A9 

07 

80 

02 

09 

0920- 

20 

09 

GA 

AD 

81 

09 

80 

08 

0928- 

09 

80 

03 

09 

29 

01 

85 

04 

0930- 

20 

21 

0A 

38 

AD 

05 

83 

ED 

0938- 

01 

09 

A4 

A9 

01 

E0 

00 

F0 

0940- 

05 

0A 

CA 

40 

30 

09 

3D 

07 

0948- 

09 

09 

00 

DO 

05 

A9 

40 

80 

0950- 

07 

09 

A0 

06 

09 

80 

01 

09 

0958- 

A9 

00 

80 

00 

09 

A9 

40 

80 

0960- 

02 

89 

20 

09 

OA 

AD 

01 

09 

0968- 

80 

02 

09 

A9 

28 

80 

03 

09 

0970- 

20 

21 

OA 

AD 

01 

09 

18 

60 

0978- 

08 

89 

80 

08 

89 

AD 

06 

09 

0980- 

29 

38 

80 

01 

09 

A9 

08 

8D 

0988- 

02 

09 

20 

89 

OA 

AD 

01 

09 

0990- 

80 

02 

09 

A9 

80 

80 

03 

09 

0998- 

20 

21 

0A 

AD 

01 

09 

18 

60 

Q9A0- 

08 

09 

85 

02 

AD 

08 

09 

69 

09A8- 

06 

80 

09 

89 

AD 

86 

09 

29 

09BO- 

07 

0A 

0A 

18 

60 

09 

09 

69 

09B8- 

20 

85 

03 

A2 

00 

8E 

09 

09 

O9C0- 

Al 

02 

80 

08 

09 

29 

80 

00 

09C8- 

2C 

A0 

88 

09 

2D 

0? 

09 

DO 

C9D0- 

05 

A9 

00 

40 

ED 

09 

29 

55 

0908- 

F0 

0B 

A5 

04 

09 

00 

DO 

0B 

09EO- 

A9 

02 

40 

ED 

09 

A5 

04 

09 

09E8- 

00 

00 

F5 

A9 

01 

18 

60 

09 

09F0- 

09 

8D 

09 

09 

60 

A9 

04 

8D 

09F8- 

09 

09 

A0 

08 

09 

20 

0? 

09 

0AOO- 

F0 

CF 

29 

55 

FO 

DF 

40 

DA 

8A0S- 

09 

A2 

08 

AD 

00 

09 

0E 

01 

0A10- 

09 

2A 

CO 

02 

09 

30 

06 

ED 

0A18- 

02 

09 

EE 

01 

09 

CA 

00 

EE 

OA20- 

60 

A2 

88 

A9 

60 

8D 

00 

89 

0A28- 

80 

01 

09 

0A 

2E 

00 

09 

0E 

0A30- 

03 

09 

90 

09 

18 

60 

02 

09 

0A38- 

90 

03 

EE 

80 

09 

CA 

DO 

EB 

0A48- 

SO 

82 

09 

60 

AD 

04 

09 

09 

0A48- 

01 

F0 

09 

09 

00 

F0 

18 

A2 

OA50- 

35 

40 

12 

D4 

AD 

85 

09 

09 

0A58- 

18 

IO 

F4 

09 

00 

30 

F0 

AD 

0A6O- 

66 

09 

09 

co 

30 

07 

09 

00 

8A68- 

10 

03 

40 

4F 

0A 

A5 

E6 

30 

0A70- 

B8 

09 

A9 

03 

85 

FF 

06 

FF 

0A78- 

30 

11 

20 

0F 

09 

A6 

FF 

AD 

DA80- 

09 

09 

90 

09 

09 

CE 

05 

09 

0A88- 

40 

76 

0A 

AD 

OA 

89 

09 

00 

0A90- 

F0 

20 

09 

04 

FG 

28 

A2 

00 

0A98- 

00 

0F 

0A 

F0 

04 

E8 

40 

98 

0AA0- 

0A 

A0 

09 

09 

00 

E3 

0A 

F0 

0AAS- 

09 

A0 

0B 

09 

00 

E3 

0A 

F0 

0AB0- 

01 

60 

AD 

0A 

09 

29 

04 

18 

0AB8- 

69 

83 

80 

0A 

09 

60 

A9 

09 

0AC0- 

80 

04 

GA 

AD 

09 

09 

09 

80 

0AC8- 

FO 

08 

09 

04 

FO 

04 

80 

0A 

0AD0- 

09 

60 

A0 

04 

0A 

09 

OB 

FO 

0AD8- 

05 

A9 

OB 

40 

00 

0A 

60 

01 

OAE0- 

02 

05 

06 

02 

01 

06 

05 



* 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 


Listato 4 - GOLF.SHAPES 


0AE7- 

0F 








0AE3- 

00 

20 

00 

29 

00 

38 

00 

4B 

0AF0- 

00 

64 

00 

66 

00 

71 

00 

78 

9AF8- 

00 

83 

00 

8E 

00 

98 

00 

A3 

0BO8- 

00 

AE 

00 

B6 

00 

05 

00 

20 

0808- 

36 

V 

30 

3E 

24 

35 

07 

00 

0810- 

1E 

1E 

1E 

20 

36 

36 

2E 

25 

0818- 

24 

24 

20 

10 

10 

04 

00 

25 

0820- 

37 

2E 

20 

30 

20 

2E 

30 

30 

0828- 

30 

2E 

3E 

30 

2E 

3E 

30 

2E 

083Q- 

2E 

00 

24 

37 

36 

3E 

24 

24 

0838- 

2D 

35 

36 

2E 

24 

24 

2F 

3E 

0640- 

3F 

37 

20 

2D 

3E 

3F 

37 

20 

0848- 

30 

24 

00 

04 

00 

20 

24 

64 

0B50- 

20 

15 

36 

36 

1E 

3F 

07 

00 

0858- 

20 

27 

24 

24 

2F 

24 

00 

3F 

0860- 

3F 

64 

OC 

20 

20 

10 

3F 

17 

0868- 

06 

00 

15 

20 

45 

23 

10 

2F 

0B7Ù- 

64 

30 

3F 

3F 

00 

24 

24 

24 

0878- 

90 

F2 

1E 

2E 

20 

20 

00 

15 

0B80- 

20 

45 

23 

E4 

3F 

27 

20 

20 

0888- 

20 

00 

20 

45 

63 

24 

E4 

3F 

0890- 

17 

76 

2D 

05 

00 

24 

OC 

oc 

0898- 

OC 

30 

3F 

3F 

00 

20 

45 

23 

0BAO- 

10 

3F 

07 

20 

oc 

20 

15 

F6 

0BA8- 

3F 

17 

36 

00 

24 

37 

36 

36 

08BO- 

36 

36 

3E 

24 

24 

24 

24 

24 

0888- 

24 

24 

37 

36 

36 

36 

36 

36 

0BC0- 

36 

36 

36 

27 

24 

24 

24 

24 

0BC8- 

24 

24 

24 

24 

24 

30 

36 

36 

06D9- 

36 

36 

36 

36 

36 

36 

36 

36 

0808- 

36 

27 

24 

24 

24 

24 

24 

24 

0BE0- 

24 

24 

24 

24 

24 

37 

36 

36 

0BE8- 

36 

36 

36 

36 

36 

36 

36 

36 

0BF0- 

36 

3E 

24 

24 

24 

24 

24 

24 

03F8- 

24 

24 

24 

24 

24 

24 

24 

37 

0000- 

36 

36 

36 

36 

36 

36 

36 

36 

0008- 

36 

36 

36 

36 

36 

27 

24 

24 

0010- 

24 

24 

24 

24 

24 

24 

24 

24 

0C18- 

24 

24 

30 

36 

36 

36 

36 

36 

0020- 

27 

24 

24 

24 

24 

30 

36 

36 

0028- 

36 

36 

36 

27 

24 

24 

24 

24 

0030- 

30 

36 

36 

36 

36 

36 

36 

36 

0038- 

36 

2D 

20 

36 

36 

36 

36 

36 

0040- 

27 

24 

24 

24 

24 

37 

36 

36 

0048- 

36 

36 

3E 

24 

24 

24 

24 

24 

OC50- 

37 

36 

36 

36 

36 

36 

27 

24 

0058- 

24 

24 

24 

24 

24 

24 

24 

24 

0060- 

24 

24 

24 

24 

30 

36 

36 

36 

0068- 

36 

36 

36 

36 

36 

36 

36 

36 

0070- 

36 

36 

3E 

24 

24 

24 

24 

24 

0078- 

24 

24 

24 

24 

24 

24 

24 

24 

0080- 

37 

36 

36 

36 

36 

36 

36 

36 

0088- 

36 

36 

36 

36 

3E 

24 

24 

24 

0090- 

24 

24 

24 

24 

24 

24 

24 

24 

0098- 

37 

36 

36 

36 

36 

36 

36 

36 

0CA0- 

36 

36 

3E 

24 

24 

24 

24 

24 

0CA8- 

24 

24 

24 

24 

37 

36 

36 

36 

0CBD- 

36 

36 

36 

36 

3E 

24 

24 

24 

0C88- 

24 

24 

24 

24 

37 

36 

36 

36 

0000- 

36 

36 

3E 

24 

24 

24 

24 

24 

0008- 

04 

00 
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NUOVI PLOTTER GRAFICI 
MULTICOLORI 





->GOULD BRYANS 


Su entrambi i modelli è possibile installare 
l’avanzamento continuo programmato della carta. 
Grazie ad una potente memoria a microprocessore i plotter 
digitali colorwriter® sono in grado di utilizzare diverse 
routines che permettono di 
generare cerchi, archi, 
finestre, effetti zoom, rotazioni 
e diversi set di caratteri tra cui 
quello con segni speciali 
per applicazioni nel settore 
scientifico. Offrono una 
memoria standard di 2K bytes, 
espandibile a 16, che 
permette un'alfa velocita di 
acquisizione dei dati trasmessi 

dagli elaboratori, sono interfacciabili a 
qualsiasi micro e minicomputer, 
mainframe e terminale mediante 
interfacce standard RS232C e IEEE-488. 
Queste unità opzionali sono 
modulari, intercambiabili tra di loro 
e facilmente inseribili in qualsiasi 
momento. 


Colorwriter® 


I nuovi plotter digitali Colorwriter® della Gould Bryans sono stati 
concepiti per offrire a tutti gli utilizzatori che operano 
nel campo della grafica ed in particolare 
del Cad/Cam, la possibilità 
di ottenere velocemente 
disegni e grafici di alta 
qualità fino a 10 colori. 

Sono disponibili in due 
versioni che si differenziano 
solo per il numero delle 
penne e per il formato: il modello DS10 
offre 10 penne/10 colori ed ha formato A3; 
il modello DS7 dispone di 7 penne/7 colori nel formato A4. 
Utilizzano vari tipi di penne tra cui rapidograph, perne per 
fogli trasparenti, pennarelli, ecc. 



Siamo a vostra disposizione per dimostrazioni, maggiori 
informazioni e chiarimenti. Contattateci. 




l enteriche e Strumenti elettronici 


collegata dell’elettronucleonica 

20146 MILANO - Via Fezzan, 9 - tei. (02) 42.25.945 ■ 42.25.946 - Telex 332033 NUCLEO I 
00147 ROMA - Via C. Magni, 71 - tei. (06) 51.39.455 - 51.40.881 - Telex 614128 ELETTR I 







Per chi 
comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull’inglese (per chi possiede 
Apple //e e //c), dovreste veder comparire 
sullo schermo il segno "]", chiamato curso¬ 
re, o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Apple¬ 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di Applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri—inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso) ; ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all’inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l’ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SA VE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null’al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple //e o un //c assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell’ultimaparola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SAVE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po’ più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l’errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LO AD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 
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riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l’intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo aH’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell’Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As- 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL—151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300: A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

m 

0302: 20 DD FB 5 LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 END 

RTS 



Listato 3 


Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL-151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0 03 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305 :CA Return 
306:F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL—C Return per tornare al 
livello BASIC indicato dal segno ’]’. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SAVE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 


dove A$300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del //c) sia per il ProDOS (sistema opera¬ 
tivo fornito con il Ile). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD, 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l’uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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• Front desk 


Ideale per uno studio di professionisti, per esempio 
avvocati, piuttosto che per un laboratorio di analisi, questo 
programma tiene gli appuntamenti di più persone, calcola 
già le entrate per ogni servizio o prestazione e poi le 
somma fra di loro. È predisposto inoltre per scrivere brevi 
rapporti. Un altro utile utilizzo potrebbe dimostrarsi la 
gestione, per esempio, di un istituto fisioterapico dove 
lavorino 10 persone: diventerebbe estremamente facile 
prendere gli appuntamenti, vedere il tal giorno chi è libero 
alla tal ora, e così via. Prodotto da Layered è commercia¬ 
lizzato in Italia, nella versione tradotta, da J. Soft, Via 
Rosellini 12, Milano. Costa 358.000 lire, IVA compresa. 



Hmm.. Questa settimana volevi avere una riunione generale! 
Facile...fai clic per vedere gli appuntamenti di tutti quanti e 
cerca una casella vuota: Giovedì alle 13 va bene per tutti. 


1030 


1630 


é nrcmuio composizione Rzlonl ordinamento serulzlo stato 


I Giugno 1985 I 


• Basic 2.0 


Scrivere programmi in basic con Macintosh è da oggi più 
facile con la release 2.0 dell’ormai noto package della 
Microsoft. È possibile aprire facilmente delle finestre nello 
stile Mac, oppure fare l’editing del programma evidenzian- 



Shoiu Coftimand 
Show List &L 
Show Second List 
Show Output 


"Puoi controllare rese-' 

cuzione del tuo pro¬ 
gramma aprendo una 
.finestra con il listato, 



OEFINT P-Z 

DIM P(2500) 

CLS 

LINE(0,0)-(120,120)„BF 
ASPECT = .1 

WHILE ASPECT<20 
CIRCLE(6G,60),55,30,,, ASPECT 
ASPECT = ASPECT* 1.4 
WEND 

GET (0,0)-( 127,127),P 
Checktiouse: 

IF MQUSE(0)=0 THEN CheckMouse 


EL 


“T$H 


do con la freccia comandata dal mouse la parte che si vuole 
modificare o, ancora, con i comandi find e replace ricerca¬ 
re tutta una serie di istruzioni o sostituirle con altre. È 
inoltre possibile controllare l’esecuzione del programma 
aprendo una finestra direttamente nel listato. Il Basic 2.0 
contiene già sul dischetto una serie di programmi dimo¬ 
strativi e di utilità. Distribuito in lingua originale da J. Soft, 
Via Rosellini 12, Milano e da Southern Computer, Via 
Molino 2, Montorfano (CO), costa 378.000 lire. 


• Da Vinci Landscapes 

Si chiama Da Vinci Landscapes, è un programma dedi¬ 
cato agli architetti che permette, con un dito, di disegnare 
paesaggi, viste dall’alto, rasoterra, interni, esterni, edifici, 
appartamenti, uffici, arredamenti. La serie Da Vinci, uti¬ 
lizzabile con l’ausilio del Mac Paint, consiste in tre diversi 
programmi riguardanti fondamenta e strutture edilizie 
(programmi Buildings e Building Blocks), interni (pro¬ 
grammi Interiors e Commercial Interiors) ed esterni (pro¬ 
gramma Landscapes). Per ciascuno di questi utilizzi sono 
memorizzati dei set di immagini elaborate da abili disegna¬ 
tori con il Mac Paint: in pratica, delle figure trasferibili 
componibili sullo schermo. Ogni singolo programma con¬ 
tiene circa venti pagine con un centinaio di figure pronte 
per essere utilizzate negli sviluppi di una composizione. 

Buildings, che costa 129.000 lire, permette di creare 
mura, terrazzi e frontali che possono essere presi a blocchi 



53 























































































































































































































34170 GORIZIA-CORSO ITALIA, 149-TEL.0481/30909 

Accessori per 11 vostro App le 

Solo per Apple Ile - espansione 64K ± 80 colonne al prezzo 
eccezionale di Lire 220.000 

novità': 

Tastiera professionale _ 90 tasti ♦ 50 comandi basic +12 

tasti funzione ♦ 10 tasti definibili da voi Lire 298 000 
Tavoletta grafica c ompleta di software: L. 235.000 
Tafco ~ un click e potrete usare l'altra faccia del vostro dischetto: 
Lire 25.000 

BUFF3R Psa STAflìPATÌTl 

Utilissimi per risparmiare tempo ed utilizzare al massimo il 
vostro computer Indispensabili per chi usa molto la 
stampante. Vi permettono di usare il computer mentre il Buffer 
manda alla stampante i dati che ha immagazzinato, 
nelle versioni: 

Alimentato dalla stampante - da Centronics a Centronics con 
capacita' di 8 K Lire 250.000 

Alimentato a 220 V. - da Centronics a Centronics con capacita' 
di 16 K e comando di Reset Lire 315.000 
Come sopra ma con capacita' di 32 K Lire 370.000 
Come sopra ma con capacita' di 64 K Lire 470.000 

Buffer da 64 k espandibile sino a 256 K ingresso seriale uscita 
Centronics Lire 680.000 

Stessa ma ingresso Centronics ed uscita seriale L 680.000 
Stessa ma ingresso seriale uscita seriale L. 730.000 

AGCS390RI VASI 

Disk Drive slim: L. 450.000 

Do ppio controller L 100.000 

Languaqe card 16 K: L. 110.000 

Z-80 p er CP/FD: L. 1 18.000 

80 colonne con soft switch: L. 220.000 

Super Serial C ard con cavo di collegamento: L 170.000 

Interfaccia Centronics per Epson - Tally - Star con grafica a 

sole Lire 118.000 

Scheda per far parlare la vostra mela con softw: L. 90.000 
Programmatore di EPROm (2716-2732-2764): L 120 000 
Scheda Pai Color con suono: 95.000 
12fiJK- RAm : L. 380.000 

Wild Card per Apple II plus e compatibili (per copiare tutti i 
programmi): L. 90.000 

Replay: l a piu' potente scheda per copia per Apple II plus e 
compatibili L. 158.000 

Joystick autocentranti: L. 42.000 

FLOPPY DISK 

In scatole da 10 pezzi tutti con anello di rinforzo: 

TIPO nASHUA ITlEmOREX Sm-SCOTCH 

SF-SD L. 40.000 L. 50.000 L. 55.000 

DF-DD L. 58.000 L. 68.000 L. 68.000 

Kit 3m per la pulizia delle testine del vostro drive a L. 55.000 

SOFTW ARI PER mAGUlTOSH 

Chiedeteci la lista li 


Vendita per corrispondenza. Tutti i prezzi indicati 
comprendono l'iVA. nessuna spesa di spedizione per ordini 
superiori alle 50.000 Lire. Prezzi soggetti a variazioni 


VISITATE IL nOSTRO COII1PUTER SHOP PER TROVARE LE 
ULTimE nOVITA* APPLE - GORIZIA - CORSO ITALIA 149 



e visualizzati in tre dimensioni con il programma Building 
Blocks (210.000 lire) ; per l’arredamento e le rifiniture 
interne serve invece il disco Interiors che mette a disposi¬ 
zione sedie, tavoli, letti, armadi, vasche da bagno, scriva¬ 
nie d’ufficio ecc. e che può essere efficacemente affiancato 
da Commercial Interiors per ordinare lo spazio e gli oggetti 
con una scala standard alla quale corrisponde un tasto per 
ogni valore. Il primo costa 129.000, il secondo 537.000 lire. 
Per completare la mappa di una casa è poi possibile, usan¬ 
do il programma Landscapes, 129.000 lire, progettare co¬ 
me disporre le piante in giardino e le strutture esterne in 
genere. Caratterizzata da una grande versatilità di coman¬ 
di, la serie Da Vinci è un prodotto della Hayden Software e 
si può richiedere presso: Southern European Computer, 
Via Molino 2, Montorfano (CO). 


• Management Edge 

Nato in aiuto ai problemi gestionali dei manager, Mana¬ 
gement Edge spazia il suo campo d’azione da situazioni 
specifiche come l’aumento della produttività o un’ottimiz¬ 
zazione delle prestazioni, fino ad arrivare a un equilibrio 
nei rapporti lavorativi; in altre parole, come riuscire, da un 
lato, a disciplinare i rapporti con i diretti dipendenti, dal¬ 
l’altro ad avere più influenza con i propri superiori. Impo¬ 
stato su una simulazione delle situazioni, Management 
Edge costa 648.000 lire, è un prodotto Human Edge Soft¬ 
ware e in Italia si trova presso la Southern European 
Computer, Via Molino 2, Montorfano (CO). 


• Communication Edge 

Capita di trovarsi in situazioni particolari dalle quali è 
difficile districarsi: un incontro per un affare delicato, una 
riunione decisionale o anche solo un appuntamento galan¬ 
te. Per avere un aiuto su come comportarsi, ma soprattutto 
su cosa dire, basta simulare la situazione sul fido amico 
Mac: il programma Communication Edge vi domanderà il 
tipo di persona che andrete a incontrare e cosa volete che 
emerga dalla conversazione consigliandovi la strategia di 
comunicazione più opportuna. E una produzione Human 
Edge Software, in Italia è distribuito dalla Southern Euro¬ 
pean Computer, Via Molino 2, Montorfano (CO). Costa 
505.000 lire. 


• Daisy Wheel Connection 

Programma molto flessibile che collega il Macintosh con 
una vasta gamma di stampanti di tipo "Margherita", tra¬ 
sformando la stampa "dot matrix" in "qualità corrisponden¬ 
za". Il package comprende un’interfaccia verso il Mac, un 
cavo (che può essere indifferentemente usato sulla porta 
stampante o sulla porta modem del Macintosh), un disco 
programma e un disco di back—up manuale. Compatibile 
con MacWrite, con Microsoft’s Multiplan e con tutti i 
programmi che stampano normalmente attraverso il driver 
ImageWriter, il Daisy Wheel Connection può essere usato 
con le seguenti stampanti: Apple Daisy Wheel, Brother 
HR series, Comrex CR II, Daisywriter, Diablo 630, Nec 
2010, Qume LetterPro 20, Qume Sprint (e compatibili). 
Distribuito in Italia a 357.000 lire dalla Southern European 
Computer, Via Molino 2, Montorfano (CO), è prodotto 
dalla Assimilation Processes. 
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MICROSOFT. 

il software di alta prestazione 



i Manager 
Program 


ForApple. 


Ora disponibile sul mercato italiano 


Microsoft File 

Data Management Prograr 


Microsoft. 

Word 

Wrt Processing 
Program 


MicrosoftWord 

Word Processing Program 


For Apple. 


Macintosh. 


MICROSOF FILE 

Finalmente disponibi¬ 
le, Microsoft File va a 
integrare la famiglia Mi¬ 
crosoft composta dal 
Basic, Multiplan, Chart 
e Word. Usato con il 
Word, il File permette 
di personalizzare un 
mailing. Crea archivi 
che combinano date, 
numeri, testi e immagi¬ 
ni. Permette di perso¬ 
nalizzare i formati secondo le strutture e le forme più indicate. Visualizza 
le tabelle prima della stampa. Lit. 447.000 IVA compresa. 



MICROSOFT WORD 

Word Processor molto 
potente, il WORD della 
Microsoft associa la 
semplicità d’uso alla 
grande molteplicità di 
funzioni per l’elabora¬ 
zione dei testi. Con un 
manuale d istruzioni e 
in opzione il Microsoft 
Mouse, permette di uti¬ 
lizzare fino a otto fine¬ 
stre per volta e dà la 



possibilità in qualsiasi momento di ottenere delle hard copy dello scher¬ 
mo. Lit. 447.000 IVA compresa. 



MICROSOFT CHART: (Microsoft). Scelta fra 40 tipi 
di diagrammi e rappresentazioni grafiche. Lit. 297.000. 

MULTIPLAN: (Microsoft). Completo per pianificare, 
previsioni e simulazioni. Lit. 449.000. 


MAC BASIC: (Microsoft). Versionè 2.0. 
Lit. 297 000 


Prezzi validi solo fino al 31 marzo 1985 


Distribuito in Italia da 


Siolui f hi i IrInHEIlIkIo p |e| a|n|C|o|m|p u|t 


Via Molino 2, 22030, Montorfano (Como). Telefono (031) 200621. Telex 340422 WTC-I-SEC 




































































Quanto impiegate in genere per compilare una nota spese? 
Un’ora? Di più? Con questo modello, che fa parte del corso di 
utilizzo di AppleWorks e VisiCalc, non solo farete un passo 
avanti nell’uso di questi eccezionali programmi, ma 
risparmierete un sacco di tempo... 


Nota spese 
in 3 minuti 


C ompilare una nota spese è oggi 
molto più complesso di quanto 
accadeva in passato. Infatti la legisla¬ 
zione fiscale è divenuta in proposito 
severa e non ammette leggerezze, pe¬ 
na salate multe se non peggio. Quindi 
ogni volta che si deve presentare una 
nota spese, tutto deve essere docu¬ 
mentato e calcolato. Il modello in Ap- 
pleWorks/VisiCalc che proponiamo in 
questo articolo, per quanto semplice e 
facilmente realizzabile anche dai me¬ 
no esperti, può risultare di grande uti¬ 
lità e può far risparmiare sulla compi¬ 
lazione di una nota spese settimanale 
anche oltre un’ora di tempo. 

Eseguita la consueta procedura di 
inserire VisiCalc o AppleWorks e di 
scegliere l’opzione nuovo file — 
Spreadsheet, posizionatevi in Al, pre¬ 
mete mela vuota L per entrare nel mo¬ 
do LAYOUT, scegliete l’opzione CO¬ 
LONNE, poi DIMENSIONE CO¬ 
LONNE, quindi RETURN e, pre¬ 
mendo ripetutamente mela vuota e 
freccia sinistra riducete la colonna A 
alla dimensione minima di una 
battuta. 

Purtroppo chi usa VisiCalc non ha la 
possibilità di restringere o allargare 
una sola colonna a suo piacimento. 

A questo punto, sempre rimanendo 
in Al, battete " (virgolette alte) per 
entrare nel modo LABEL (testo) e ! 
(punto esclamativo), RETURN. Poi 
la seguente sequenza: mela vuota D, 
RETURN, RETURN, spostate il cur¬ 
sore in A2,. (punto), spostate il curso¬ 
re fino ad A41, RETURN. Avrete co¬ 
sì creato una riga verticale di punti 
esclamativi che serviranno a delimita¬ 
re graficamente a sinistra il modello. 
Chi usa VisiCalc, al posto di mela vuo¬ 
ta, prema R. 

E bene richiamare l’attenzione, a 
questo punto, su un utilissimo coman¬ 


riga che avete già fatto). Naturalmen¬ 
te potete sostituire alcune voci secon¬ 
do le vostre personali esigenze. 

Ricordate che se un testo (per esem¬ 
pio proprio il primo che dovrete rico¬ 
piare: NOTA SPESESETTIM.) è più 
largo della colonna, non ci sono pro¬ 
blemi, in quanto con AppleWorks si 
va automaticamente a scrivere nella 
colonna a fianco, mentre, se state 
usando VisiCalc, dovete spostare il 
cursore nella casella a fianco, usando 
freccia destra, battere ancora ” per en¬ 
trare nel modo LABEL e riempire di 
testo questa seconda casella. E così 
via. 

Posizionatevi ora in D5 e scrivete 
LUN. Poi in E5, dove scriverete 
MAR, e così via fino a completare i 
sette giorni della settimana. 

Affinché vengano scritte automati¬ 
camente le date dei giorni relativi al 
rimborso, posizionatevi nella casella 
sotto MAR (E6) e scrivete la seguente 
formula: 1+E6; nella casella F6 scri¬ 
vete invece la formula 1+F6, e così via 
fino alla casella sotto DOM, cioè la 


do che abbiamo appena utilizzato. In¬ 
fatti, premendo . (punto) in fase di 
duplicazione, ottenete di duplicare i 
contenuti di una casella in tutte le ca¬ 
selle che evidenziate successivamente. 
E questo vale sia per AppleWorks sia 
per VisiCalc. 

Nel caso appena visto, non si può 
apprezzare in pieno l’utilità di una si¬ 
mile scorciatoia, se non quella del ri¬ 
sparmio relativo di tempo, poiché ab¬ 
biamo duplicato del testo (il punto 
esclamativo), ma quando si duplicano 
le formule, poiché per ogni formula il 
programma richiede se si tratta di dati 
relativi o uguali, il risparmio di tempo 
e soprattutto una più esigua possibilità 
di commettere errori appaiono evi¬ 
denti, in quanto basta dare l’imput di 
relativo o uguale una sola volta. 

Posizionatevi in Bl, battete " (virgo- 
lette alte) e una riga di - (trattini) fino 
a LI, sempre per dare una elegante 
impostazione grafica al modello. 

Nella colonna B ricopiate tutti i testi 
della figura 1 , comprese le righe di 
trattini (potete duplicarle dalla prima 
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presenta il suo catalogo software per Macintosh 

Prezzi validi solo fino al 31 marzo 1985 


Software di sistema 

AZTEC C68K: (Manx Software). Compilatore C 
per tl MAC. Lit. 555.000 

• HIPPO C: (Hippopotamus Software) Editore 
Compilatore C MAC. Lit. 450.000. 

• MACForth II: (Creative Solution) Linguaggio 
di sviluppo, supporta come subroutme le inter¬ 
facce utente MAC. Lit. 328 000 

MAC BASIC: (Microsoft). Versione 2.0. Lit 
297 000. 

MAC PASCAL: (Apple Computer). Non ancora 
quotato. 

MAC Tools: (Central Point Software). Tutte le 
funzioni del FINDER. inoltre protegge e copia file 
protetti oltre a creare file invisibili. Lit 119.500. 

• MACASM: (Mainstay). Macroassembler con 
editor. Lit. 259 200. 

Gestione archivi: 

DS MASTER: (Stoneware) DEMS che gestisce 
un milione di records su 44 dischetti con tempo di 
ricerca di un secondo. Lit 431.500 

• FILEVISION: (Telos). Archivio grafico alfanu¬ 
merico. Lit 494.500 

HABADEX: (Haba Systems). DEMS con agen¬ 
da. calendario e funzioni d ufficio. Lit. 476.500. 
HELIX: (Odesta). Archivio dinamico che accetta 
dati senza limiti di dimensione e formato. Lit 
696.000. 

• MAIN STREET: (Main Street Software). Ar¬ 
chivio con report generator piu agenda Lit 
554.500. 

MEGAFILER: (Megahaus). Gestione archivi 
compatibile con MACWrite. Lit. 494.500 

• MICROSOFT FILE: (Microsoft). Archivio con 
uso del mouse. Lit. 447.000. 

OMNIS 1-2-3: (Blyth Computers) DBMS modu¬ 
lare. 10 campi indicizzati per record, funzioni lo¬ 
giche e matematiche, report ed applicati on ge¬ 
nerator Lit 2.667.000. 

• PFS FILE: (Software Publishing). DBMS per 
chi inizia Lit. 267.000 

• PFS REPORT: (Software Publishing). Report 
generator per PFS File Ut. 267.000. 

PFS FILEREPORT: Versione Integrata. Lit 
505 500. 

• FIRST BASE: (Desk Top) Data Base Rela¬ 
zionale. Lit. 532.000. 

Gestione amministrativa 
e finanziaria: 

DOLLARS & SENSE: (Monogram). Analisi Costi 
e Bilanci fino a 120 conti. Lit. 376.500. 
FINANCIAL MGN: (Software Arts). Gestione e 
analisi finanziaria. Lit 129.000. 

MULTIPLAN: (Microsoft). Completo per pianifi¬ 
care. previsioni e simulazioni. Lit 449.000. 
ELECTRIC CHECK BOOK: (State of thè Art) 
Gestione Bilancio Familiare. Lit. 240.000. 

• THE HOME ACCOUNTANT: (Virtual Combi- 
natics). Programma per preparazione ricette cu¬ 
cina. Lit. 102.000. 


Ufficio moderno: 

MAC CALENDAR: (Videx). Gestisce appunta¬ 
menti ed appunti con dinamicità. Lit. 207.000 
MEGAMERGE: (Megahaus). Personalizza i do¬ 
cumenti scritti con MACWrite Lit 279 000 

• MICROSOFT WORD: (Microsoft). Videoscrit- 
tura con finestre e Mouse Lit. 447 000 

• P.A. DIARY: (Rodent Software). Organizza il 
tuo tempo Lit 225.000. 

• THINK THANK: (LivingVideotext). Il primo 
Processore delle Idee Lit. 376.500. 

MASTER TYPE: (Scarborough). Insegna la dat¬ 
tilografia Lit. 129.450 

MAC DESK: (Intermatrix). Organizza la scriva¬ 
nia e appuntamenti. Lit. 447.000 
MOM: Mac Office Manager. (Onnisoft). Foglio 
calcolo, database, grafica e word processor con 
mailmerge integrati, compatibilità file Multiplan. 
Lit. 1 485.000. 

Applicazioni professionali: 

COMMUNICATION EDGE: (Human Edge). Per 
comunicare meglio nei meetings e nelle conver¬ 
sazioni. Lit 505.000. 

MANAGEMENT EDGE: (Human Edge). Con¬ 
trollo dell efficienza e produttività del personale 
Lit 648 000 

SALES EDGE: (Human Edge). Controllo e ge¬ 
stione clienti e prodotti. Lit 648.000 
HAYDEN SPELLER: (Hayden Software). Con¬ 
trollo vocaboli. Lit. 207.300. 

Calcolo tecnico e scientifico: 

COSTRUZIONE E PROGETTAZIONE EDIFICI: 

(Software Arts). Lit. 129.000 

INGEGNERIA MECCANICA: (Software Arts) 
Lit. 129.000 

INGEGNERIA FINANZIARIA: (Software Arts) 
Lit 129 000 

• Tk! SOLVER: (Software Arts). Risolve sem¬ 
plici o complesse equazioni Contiene formule 
per finanza, ingegneria e costruzioni. Lit. 
570.000 

Applicazioni grafiche 
e tecniche: 

• DAVINCI BUILDING BLOCKS: (Hayden 
Software). Libreria grafica estesa per disegni di 
architettura. Lit. 207.300. 

• DAVINCI COMMERCIAL INTERIORS: (Hay¬ 
den Software). Libreria grafica estesa di immagi¬ 
ni per disegno di uffici modulari e interni comples¬ 
si. Lit. 518 250 

CLICK ART: (T/Maker Graphics). Cento simboli 
e ritratti professionali da usare con il Mac. Lit. 
114 000 

DA VINCI GRAPHICS: (Hayden Software) Pro¬ 
gettazione su Mac per architetti e designers. Lit 
129.000 

• MAC VISION: (Koala Tecnologies). Interfac¬ 
cia per telecamera o camera per ripresa ed ela¬ 
borazione immagini esterne. Lit. 1.050 000. 

• MICROSOFT CHART: (Microsoft). Scelta fra 


40 tipi di diagrammi e rappresentazioni grafiche. 
Lit 297.000 

MAC THE KNIFE: (Miles Computing). Libreria di 
immagini, icone decorazioni e fondi creati con il 
MacPaint, piu due nuovi tipi di caratteri. Lit. 
101.000 

MAC THE KNIFE: (Fonts). Lit. 127.000. 

ART PORTFOLIO: (Axlon Ine ). Libreria di dise¬ 
gni suddivisi in 12 categorie. Lit. 155.400 

• SLIDE SHOW MAGICIAN: (Magnum Softwa¬ 
re). Per creare prestazioni molto professionali 
Lit. 180 000 

MAC PIC 1 & MAC PIC 2: (Magnum Software). 
ClipArt per Mac. Lit. 150.000 (cadauno). 
READY SET GO: (Manhattan Graphics). Sele¬ 
zione di arte grafica per la stampa di lettere, libri, 
etc. Lit. 375.000. 

MENU PATTERNS: (Finger Tip). 500 fondini da 
usare con Mac Paint. Lit 120 000 
IMAGES: (Matrix Advocates). Libreria di imma¬ 
gini per lettere, documenti da usare con Mac¬ 
Paint. Lit. 135.000. 

CARD SHOP: Libreria di immagini per biglietti 
d'auguri. Lit. 155.000. 

Comunicazioni: 

• DAISYWHEEL CONNECTION: (Assimilation 
Process). Consente stampa lettera qualità su 
printer margherita. Lit. 357.000 
DATATALKER/EMUL. 3270: (WinterHalter 
Ine.) Consente il collegamento remoto del Mac 
con Mainframe Ibm serie 30XX e 43XX. Non 
ancora quotato 

• PC AL MAC E RITORNO: (Dilithium Press). 
Ideale per scambiare informazioni in un sistema 
ufficio misto. Anche emulatore terminale. Lit. 
234 000 

• SMOOTH TALKER: (FirstByte). Sintetizzato¬ 
re vocale per Mac. Lit 388.650 

• EPSTART: (Softstyle). Modifica il file Ima- 
gewriter del MAc così da stampare usando la 
Epson FX o JX. Lit. 153.000. 

Didattica: 

• MAC COACH: (Ati). Introduzione al Mac. Lit. 
189 000. 

MAC MANAGER: (Harvard Associates). Simu¬ 
lazione di mercato per il manager moderno Lit. 
132.000. 

MILLIONAIRE: (Blue Chip Software). Simula¬ 
zione del mercato azionario. Lit 132 000. 
MUSIC WORKS: (Hayden Software). Per com¬ 
porre e stampare le composizioni. Lit. 120.000. 
PROFESSIONAL COMPOSER: (Mark of thè 
Unicom). Comporre, redigere e stampare tutta la 
musica. Lit. 1 312.000. 

MAKE MILLIONS: Lit 127 000. 

MACMATCH: Lit. 127 000 

Giochi: 

MURDER BY THE DOZ: Lit 116 550 
LODERUNNER: Lit 103 500 
CHIPWITS: Lit. 127 000 
MACGAMMONMACCRIBBAGE: Lit. 169 600 


Importante novità per i rivenditori Southern European Computer: 


Bollettino software. 

Da oggi potete collegarvi, via modem, con la rete TINA e 
conoscere: tutte le novità software e hardware. L elenco 
dei prodotti più venduti. Il catalogo con i prezzi aggiornati. 
Fare i vostri ordini in tempo reale. Ricevere informazioni 
tecniche. Avere e dare informazioni fra dealers sullo stoc¬ 


caggio di magazzino ed effettuare eventuali compensa¬ 
zioni. Verrà concesso uno sconto del 5% sul primo ordine 
eseguito dopo l’allacciamento alla rete. Per informazioni 
rivolgersi a Southern European Computer, Via Molino 2, 
Montorfano (CO), telefono (031)200621, Telex 340 422 
WTC SEC. 



o 

I 


Software 


via Molino 2, 22030, Montorfano (Como). Telefono (031) 200621. Telex 340422 WTC-I-SEC 


Con un modesto sovrapprezzo 
consegne a domicilio in 48 ore. 


































casella J6, dove scriverete 14-J6. Se 
per esempio il lunedì del vostro rim¬ 
borso settimanale è il 4, basterà scrive¬ 
re 4 in D6, e automaticamente sotto 
martedì comparirà 5, e così via. 

Alla riga 24, colonna D, è il momen¬ 
to di cominciare a inserire la prima 
formula: _ 

+D9+§SUM (D15.D23) 

e così di seguito per tutta la riga, casel¬ 
la per casella, come si può facilmente 
desumere dalla figura 2. Chi usa Visi- 
Cale, al posto del segno §, deve mette¬ 
re il segno @. Fate comunque atten¬ 
zione al seguente particolare: nelle 
formulò della figura 2, anziché un solo 


punto potete vedere tre punti tra DI e 
D23, voi però dovete battere un solo 
punto quando inserite le formule. 
Provvederà il computer a trasformare 
il vostro unico punto in tre punti. 

Lo stesso dicasi per le altre formule 
del modello, che non hanno bisogno di 
ulteriori descrizioni perché sono tutte 
riconducibili a quanto abbiamo già 
esaminato finora. 

Il modello permette la stesura di 
una nota spese effettuata anche in va¬ 
luta estera. Per questo, in E2 potete 
inserire il valore del cambio al mo¬ 
mento della richiesta di rimborso, per 
avere nella riga finale del prospetto il 
calcolo automatico del controvalore in 


lire italiane. Se invece utilizzate il mo¬ 
dello per compilare rimborsi spese in 
lire italiane, basterà lasciare vuota la 
casella E2. 

Infine, se la nota spese deriva, per 
esempio, dalla visita di un cliente, po¬ 
tete inserire il suo nome nella zona in 
alto a destra del prospetto, lasciata li¬ 
bera proprio per questo scopo. 

Ricordatevi di delimitare anche la 
parte destra del prospetto con una riga 
di punti esclamativi, seguendo questa 
procedura: dopo esservi posizionati in 
Al, premete mela vuota D, RE¬ 
TURN, spostate il cursore lungo tutta 
la linea di punti esclamativi, premete 
ancora RETURN, posizionate il cur- 







58 


















































I 


sore in MI e premete un’ultima volta 
RETURN. Chi usa VisiCalc prema/R 
invece di mela vuota D. 

La procedura per stampare il pro¬ 
spetto è la medesima indicata nel nu¬ 
mero 12-13 di Applicando , nell’artico¬ 


lo che descriveva la creazione di un 
Budget, sempre con AppleWorks e 
VisiCalc. In questo caso tuttavia è più 
semplice, perchè, una volta definiti i 
parametri di stampa, il rimborso spese 
può essere stampato in un unico fo¬ 


glio, anche da una stampante a 80 co¬ 
lonne. 

Infine, un utile trucco per assicurar¬ 
vi di aver inserito esattamente tutte le 
formule, è quello di premere mela¬ 
vuota Z: sullo schermo, al posto dei 


Figura 2. Ecco 
come si presenta il 
foglio stampato usando 
l’opzione mela-vuota Z: 
al posto dei risultati 
vengono evidenziate le 
formule che portano a 
questi risultati, per un 
più agevole controllo di 
aver inserito in ogni 
casella il suo esatto 
contenuto. 













Questo libro, partendo dalle 
istruzioni in Basic, vi introduce 
al linguaggio macchina dell’Ap¬ 
ple, iniziando dagli esempi più 
semplici per arrivare in fine al¬ 
l’uso dei miniassembler. 

340 pagine, 15.000 lire. 


Gli elementi essenziali del Lisp, 
con numerosi programmi subito 
utilizzabili. 

216 pagine, 19.000 lire. 



Un breve manuale di introdu¬ 
zione al Microsoft Basic, una 
evoluzione e specializzazione 
del Basic originale, che è di 
fatto lo standard del Basic per 
microcomputer. 

150 pagine, 12.000 lire. 


Imparate 
il linguaggio 
dell’Apple 




Routine d’aiuto alla soluzione di 
problemi che si incontrano in 
fase di progettazione. 

138 pagine, 14.000 lire. 




Per conoscere questa macchi¬ 
na, la sua impostazione e quali 
funzioni consente di assolvere. 
152 pagine, 16.000 lire. 


Desidero acquistare 

□ . 

□ ... 

□ . : ... 

Pagherò al postino il prezzo indicato + 1.000 lire per contributo spese postali 
□ Desidero solo ricevere il vostro catalogo generale 
Ritagliate e spedite a: 

gruppo editoriale muzzio - via makallè 73 - 35138 padova 


nome.cognome 

via... 

c.a.p.città. 


























































































risultati, saranno visibili tutte le for¬ 
mule che portano a quei risultati. 

State attenti però ad allargare le co¬ 
lonne, perchè, essendo le formule più 
lunghe di un semplice risultato nume¬ 
rico, occupano più spazio e quindi la 
loro visualizzazione viene troncata. 
Per allargare le colonne, fate riferi¬ 
mento a quanto spiegato in proposito 
nella parte iniziale di qesto stesso arti¬ 
colo, con l’avvertenza, dopo aver evi¬ 
denziato l’opzione DIMENSIONE 
COLONNE, RETURN, di premere 
freccia destra per evidenziare insieme 
tutte le colonne che volete allargare. 
Poi battete RETURN e mela-vuota 
freccia-destra per allargare tutte le co¬ 
lonne finché siete sicuri che le formule 
vengano visualzzate per intero. A que¬ 
sto punto potete anche stampare il 
prospetto al fine di un più agevole con¬ 
trollo di tutte le formule inserite. Per 
far tornare a video i risultati, anziché 
le formule, basta che premiate mela¬ 
vuota Z. 

Chi usa VisiCalc segua invece la se¬ 
guente procedura. Batta /SS, poi SI, 
se avete la stampante collegata con lo 
slot n. 1; S2, se invece è collegata con 
lo Slot n.2, ecc. Infine RETURN. Sul¬ 
la stampante verranno stampate tutte 
le caselle del vostro Spreadsheet, in 
colonna, con tutte le formule. 


► 


Corso AppleWorks/VisiCalc 
anche su dischetto 


◄ 


Continua con questo numero 
il corso pratico di utilizzo del 
programma Appleworks. Il 
corso prevede cinque modelli di 
spreadsheet, tre di data base e 
due di word processor. Alla fi¬ 
ne, chi seguirà il corso sarà in 
grado di utilizzare pienamente 
questo splendido programma 
disponibile in italiano presso 
tutti i computershop. 

Coloro che fossero interessa¬ 
ti solo allo spreadsheet, perché 
in possesso di VisiCalc, trove¬ 
ranno ugualmente interesse a 
seguirlo, in quanto tutti i co¬ 
mandi che servono a costruire i 
modelli di calcolo elettronico 
verranno forniti sia per Apple¬ 
works, sia per VisiCalc. 

Alla rubrica Disk Service tro¬ 
verete il tagliando per ordinare 
i modelli, che di numero in nu¬ 
mero vengono presentati, regi¬ 
strati su dischetto. Abbiamo 


contenuto il loro costo pratica- 
mente al valore del disco vergi¬ 
ne (15.000 lire), se considerate 
le spese postali (il disco viene 
inviato raccomandato), per da¬ 
re a tutti la possibilità di con¬ 
frontare il modello costruito da 
sé con quello effettivamente 
creato dagli esperti di Appli¬ 
cando. E anche per avvantag¬ 
giare coloro che non hanno 
tempo di seguire questo utilissi¬ 
mo corso, ma che desiderano 
ugualmente servirsi dei modelli 
in casa o sul lavoro. 

Coloro invece che desidera¬ 
no solo due dischi, con 5-1-5 mo¬ 
delli, da utilizzare subito, pos¬ 
sono ordinarli a 80.000 lire. 

E’ disponibile anche il disco 
dati per VisiCalc, con i cinque 
modelli, al prezzo di 40.000 li¬ 
re, oppure i singoli modelli, re¬ 
gistrati su dischetto, sempre al 
costo di 15.000 lire cadauno. 
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.A. casa tua, partendo dalle nozioni 
di base e mettendo ogni volta in pratica 
ciò che impari, diventerai un esperto in 
micro-calcolatori. 

Non solo, ma con i materiali del Corsoi 
costruirai interessanti apparecchiature 
che resteranno di tua proprietà e 
ti serviranno sempre: il MINILAB 
(laboratorio di elettronica 
sperimentale), il TESTER (analizzatore 
universale), il DIGILAB (laboratorio 
digitale da tavolo), l’EPROM 
PROGRAMMER (programmatore di 
memorie EPROM) e l’ELETTRA COMPUTER 
SYSTEM (microcalcolatore basato sullo Z80). 
Chiedi oggi stesso informazioni gratis e senza 
impegno su questo 
nuovo Corso o 
sugli altri 9 Corsi 
di elettronica 
preparati per 
te da Scuola 
Radio 
Elettra. 

V 


I microcomputer richiedono tecnici capaci di 
assicurarne sempre il perfetto funzionamento. Sapere 
com’è fatto un microcomputer, conoscerne tutti i segreti, 
è il punto di partenza per un’attività moderna, specialistica 
e interessante anche per le possibilità di guadagno. 

Ecco perché Scuola Radio Elettra 
. ti propone il CORSO-NOVITÀ 
ELETTRONICA DIGITALE 
E MICROCOMPUTER 

in 44 gruppi di lezioni e 17 serie 
“ di materiali con oltre 870 
componenti e accessori. 

Compila e spedisci questo tagliando. 




Scuola Radio Elettra 

Via Stellone 5-10126 Torino 


® Compila, ritaglia, e spedisci solo per informazioni a: x 96 

| SCUOLA RADIO ELETTRA - Via Stellone 5 -10126 Torino 

Vi prego di farmi avere, gratis e senza impegno, il materiale informativo relativo al Corso di: 


□ Tecnica elettronica 
sperimentale (NOVITÀ’) 

□ Elettronica digitale (NOVITÀ’) 

□ Microcomputer (NOVITÀ’) 

□ Elettronica Radio TV 
\J Elettronica industriale 


□ Televisione b/n 

□ Televisione a colori 

□ Amplificazione stereo 
DAIta fedeltà 

□ Strumenti di misura 


(Indicare con una crocetta la casella che interessa) 


COGNOME 

NOME _ 

VIA _|_ 

LOCALITÀ' 

CAP _|_ 

ETÀ' _j_ 
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Grafici a colonna, grafici a torta, grafici a linee... Con questo 
^ 0 ^ programma, facilissimo da usare perché tutto in punta di mouse, 
è possibile tradurre aride sequenze di numeri 
in affascinanti immagini che... 


Microsoft Chart 


C on questo programma diventa fa¬ 
cilissimo preparare grafici d’ogni 
genere in pochi minuti. Acceso il com¬ 
puter e inserito il dischetto, per prima 
cosa bisogna scegliere il modo inseri¬ 
mento dati facendo clic sulla finestra 
DATA. Quattro sono le possibilità: in 
ordinata si inseriscono sempre dati, 
mentre l’ascissa può servire per evi¬ 
denziare l’anno di partenza che a prio¬ 
ri si può decidere di incrementare di 
uno, due, tre, e così via, automatica- 
mente, in modo che rinserimento si 
limiti poi ai dati in ordinata. Oppure, 
sempre in ascissa, si può evidenziare 
una data di partenza (mese, giorno, 
anno) e incrementarla o di anno in 
anno, o di mese in mese, o di giorno in 
giorno, o di settimana in settimana. 
Oppure si può scrivere una definizione 
per ogni dato che si vuole inserire. 
Quarta e ultima possibilità, si può dare 
un ordine numerico ai dati da inserire. 

Per esempio (figura 1), scegliamo la 
prima possibilità. Dopo aver inserito i 
dati, facendo clic nell’opzione GAL- 
LERY ? possiamo scegliere il tipo di 


grafico che ci interessa fra AREA, 
BAR, COLUMN, LINE, PIE, 
SCATTER, COMBINATION (figu¬ 
re da 2 a 8). All’interno di ogni opzio¬ 


ne, è possibile scegliere fra diversi tipi 
di grafico della stessa specie. Sceglia¬ 
mo COLUMN e facciamo clic su 
PLOT SERIES: il risultato è mostrato 
nella figura 9. 



Figura 1 



Raffronti 

A questo punto può essere interes¬ 
sante raffrontare due serie di dati rap¬ 
portati allo stesso periodo. Per esem¬ 
pio il primo può essere vendite e il 
secondo acquisti. Facciamo clic sul ri¬ 
quadro in basso a destra della figura 9, 
NEW SERIES, e inseriamo la nuova 
serie di dati relativi agli acquisti. Fac¬ 
ciamo poi che su PLOT SERIES, clic 
sul grafico, clic su FILE scegliendo 
NEW FORMAT, clic su GALLERY 
scegliendo COLUMN e il tipo 1 di 
grafico a colonna (figura 4). A questo 
punto lo schermo è quello di figura 10, 
con i dati delle due tabelle affiancati 
per un rapido raffronto. 

Con estrema semplicità è possibile 
poi scrivere all’interno del grafico 
quello che si vuole per chiarirne me¬ 
glio concetti e contenuti (figura 11). 
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Y.Togliotti 4 56030 Perigliano Pi 

Rivenditore e centro assistenza 
AUTORIZZATO 

f^appkz computar 

_. fin dal 1980 

HARDWARE : con garanzia 

Apple.. Tutta la gamma . 

. .a prezzi super-scontati, 
per iteri che e accessori.. 
un grande assortimento 
...ai prezz i p i u ' bass i. 
Super valutazione dell'usoto 

SOFTWARE : con aggiornamenti 

SHC - Gestione servizi 
per comuni medio-piccoli, tributi, 
anagrafe,stato civile,elettorale. 

SOR - Gestione Aziende 
ordini / produz /magazz /fatturoz. / 
pagamenti /statistiche /budget /iva 
contabilito' generale e forfettaria. 

SPS - Gest. studi commerc. 
simulazione /pianificazione /analisi 
statistiche /grafica /archiviazione. 

gestione/or chiviaz. e stampa della 
modulistica fiscale ricorrente. 

§91- Gest. studi tecnici 
oltre 70 pakage per archiviare, 
progettare, calco! or e, disegnare. 

§99- Didattica e Insegn. 
oltre 20 pakage a libro elettronico 

SOC - Hobby Casa Giochi 
oltre 100 dischi per animazione, 
outoopprendimento, grafica, quiz, 
sintetizzazione vocale, avventure. 


Condizioni particolari 

sono previste per gli operatori 
commerciali del settore 


Richiedere specifiche e prezzi per 
il settore interessato inviando lit. 
3.000 in francobolli o passandoci 
uno ordinazione anche telefonica. 


Per dettogli tecnici urgenti : 
TELEFONARE allo 0587 - 616084 


MATERIALI FORNITI CON 
GARANZIA 

SODDISFATTI 0 RIMBORSATI 
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RIVENDITORE AUTORIZZATO 

^cippkz computer ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 


Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G8008 SE/1005/ 1010/1030 



INFORMATICA 

BIELLA 


VIA ROMA 11 
' 13051 BIELLA 

TEL. 015 - 29.875 
24.181 


Grafici a torta 

Per quanto riguarda i grafici a torta, 
esistono alcune possibilità che vale la 
pena segnalare. Chiamiamo un nuovo 
file e inseriamo i dati di fatturato per 


trimestre relativi all’anno 1984. Fa¬ 
cendo clic su GALLERY scegliamo 
PIE e l’opzione 6 (figura 6). Automa¬ 
ticamente i dati vengono suddivisi in 
un grafico a torta che riporta in per¬ 
centuale sul totale del fatturato i sin¬ 
goli fatturati trimestrali. Se poi voglia- 
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Figura 9 
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mo avere queste percentuali in ordine 
numerico crescente basta fare clic su 
DATA e scegliere l’opzione SORT 
(figura 12). Facciamo quindi clic su 
CHART e attiviamo l’opzione ADD 
LEGEND. Con un clic sulla zona che 
riguarda il fatturato del terzo trimestre 


selezioniamo appunto quella zona e 
per mezzo del mouse possiamo spo¬ 
starla in fuori per una migliore eviden¬ 
ziazione: il risultato è visibile nella fi¬ 
gura 13. 

Si tratta quindi di un programma 


davvero facile da usare, ma estrema- 
mente duttile. Prodotto dalla Micro¬ 
soft, è distribuito in Italia, in versione 
originale, da Southern European 
Computer, Via Molino 12, Montorfa- 
no (CO), telefono 031-200621. Costa 
297. 000 lire Iva compresa. 
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Una scuola che non funziona, 

ore e ore di televisione, 

poco tempo per seguirli nello studio. 

E adesso il personal computer. 

È l’ennesimo nemico dei nostri figli? 

O può invece aiutarli 
a imparare di più, a sviluppare meglio 
le loro facoltà? Ecco tre 
programmi che la dicono molto lunga... 



Imparalo 

col computer 


10 PRINT HELLO THERE 
20 PRINT 'YOURNAM6* 


RUN 


S i sa che i bambini di oggi non sono 
quasi più capaci di parlare: si 
esprimono per grugniti e per slogan, 
sposando suoni onomatopeici rubati ai 
fumetti con gestacci futuristi appresi 
dagli spot televisivi o dai videogame. 
Quando scrivono, poi, apriti cielo. Le 
ultime generazioni di genitori, infatti, 
sono sempre più allarmate e, recitan¬ 
do il mea culpa per aver tollerato la 
perniciosa simbiosi tra figlio e TV, giu¬ 
rano che però dal personal computer, 
almeno da quello, lo salveranno. 

Hanno torto o ragione? Come sem¬ 
pre, dipende. Utilizzare lo schermo di 
un PC per giochi interminabili e ripeti¬ 
tivi, che richiedono alla mente un’agi¬ 
lità di tipo scimmiesco, serve solo ad 
atrofizzare alcune preziose potenziali¬ 
tà dell’intelligenza infantile; educare 
solo al rapporto con il mondo delle 
immagini trascurando quello delle pa¬ 
role non produce certamente dei lette¬ 
rati; impigrire la memoria del bambi¬ 
no insegnandogli a utilizzare ogni vol¬ 
ta che è possibile quella dell’elabora¬ 
tore, infine, tutto fa fuorché il suo be¬ 
ne. 

Vietarlo ai minori non è comunque 
la soluzione: come ogni strumento, 
anzi più degli altri strumenti perché 
sconfinatamente ottuso ed efficiente. 


il personal computer fa quello che gli si 
fa fare, e nulla più. Istruito con i giusti 
programmi, diventa anzi un ottimo pe¬ 
dagogo, e come tale sfoggia alcune vir¬ 
tù che agli umani spesso fanno difetto: 
la sua pazienza non ha limiti, ma è 
inflessibile; giudica con imparzialità i 
risultati; sa premiare quelli positivi; 
non ha fretta, non si distrae, non si 
ammala... 

Per quali bambini? 

Tre programmi, tre fasce di età: per 
quella prescolare un quiz che insegna a 
contare, attribuendo un numero a un 


insieme di figure colorate; per quella 
della prima scolarità un metodo non 
uggioso per apprendere l’ortografia; 
per quella immediatamente successiva 
un vivace e divertente gioco in cui vin¬ 
ce chi sa meglio le tabelline... 

Elaborati da tre studiosi americani 
di psicopedagogia infantile, hanno tut¬ 
ti in comune alcune fondamentali ca¬ 
ratteristiche: obbediscono a principi 
educativi avanzati (non richiedono al 
bambino, per esempio, risposte mec¬ 
caniche, ma stimolano la sua parteci¬ 
pazione); sono già stati sperimentati 
con successo; allegri e colorati, otten¬ 
gono un’ottima accoglienza da parte 
dei giovanissimi fruitori. 

Quiz di 
conteggio. Le 

10 figure tra 
iequaliil 
computer 
sceglie, in 
modo 
casuale, 
quella da 
presentare a 
video, 
ripetendola 
fino a nove 
volte. 
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Quiz di conteggio 

Con questo programma si può inse¬ 
gnare al bambino in età prescolare il 
valore dei primi numeri, utilizzando 
figure in grafica ad alta risoluzione; 
l’attenzione del bambino e il suo coin¬ 
volgimento sono assicurati da un at¬ 
tento e ricco dosaggio di suoni e luci, il 
cui avvicendarsi funge da ricompensa- 
motivazione. 

L’Apple sceglie una figura a caso in 
una tavola che ne contiene dieci e poi 
la disegna con DRAW ripetendola 
sullo schermo per un numero casuale 
di volte (da 1 a 9), a colori pure casua¬ 
li, sullo schermo Hi—Res. Quindi il 
programma chiede al bambino di pre¬ 
mere il tasto corrispondente al nume¬ 
ro delle figure disegnate. 

La risposta giusta viene premiata 
con un display, scelto a caso tra i cin¬ 
que disponibili, che riempie lo scher¬ 
mo di disegni colorati. Vengono con¬ 
cesse ogni volta due occasioni, dopo di 
che si passa a un nuovo numero: lo 
schermo viene pulito e vengono dise¬ 
gnate nuovamente le figure. 

A causa della sua struttura, il quiz di 
conteggio è probabilmente più piace¬ 
vole quando è visto a colori. Si è co¬ 
munque sperimentato che riesce sen¬ 
z’altro a divertire anche in bianco e 
nero. 

L’istruttore 
di ortografia 

Il programma sceglie a caso e pre¬ 
senta sullo schermo una parola, sce¬ 
gliendola da un elenco di parole me¬ 
morizzate in precedenza. Il ragazzo, 
imparata la parola, può batterla sulla 
tastiera del computer, ossia copiarla. 
Se però la parola viene digitata in mo¬ 
do inesatto, ogni errore, sullo scher¬ 
mo, viene segnalato da un trattino; se, 
per esempio, il ragazzo scrive ELA- 
FANTE, la parola appare sullo scher¬ 
mo come EL-FANTE. 

A questo punto il computer chiede 
che la parola venga scritta nel modo 
giusto, e insiste fino a ottenere la gra¬ 
fia esatta. Una volta scritta in modo 
corretto, la parola viene presentata di 
nuovo, ma questa volta con una delle 
sue lettere, scelta a caso, sostituita da 
uno spazio vuoto. Spetta al ragazzo, 
naturalmente, completarla battendo 
la lettera mancante. Il procedimento 
continua con la rimozione di una lette¬ 
ra dopo l’altra e, infine, viene presen¬ 
tato solo uno schermo vuoto. 

E questo il momento in cui il ragaz¬ 


fìEROPDRTD 
PlREDPDRTD 
Pi - - □ P □ R T □ 


L’istruttore di ortografia. Con questo programma, i bambini delle prime classi 
elementari possono sicuramente migliorare la loro ortografia. 


zo deve scrivere l’intera parola a me¬ 
moria. Se sbaglia, il paziente compu¬ 
ter gli presenta nuovamente il vocabo¬ 
lo esatto e ripete l’intero procedimen¬ 
to. Al termine di una lezione di dieci 
parole viene visualizzato il numero de¬ 
gli errori. 

Il grande pregio di questo program¬ 
ma è che evita l’acquisizione di infor¬ 
mazioni inesatte, e utilizza come prin¬ 
cipi di apprendimento il suggerimen¬ 
to, il rafforzamento e il coinvolgimen¬ 
to. 

Suggerimento. Al ragazzo vengono 
fornite delle indicazioni (le lettere), 
che gli vengono poi gradualmente sot¬ 
tratte. (La maggior parte di noi ha fat¬ 
to ricorso a qualche sistema di indica¬ 
zione per ricordare la materia che gli 
serviva per un esame o per un discor¬ 
so. Questo principio, del resto, gover¬ 
na trucchi mnemonici famosissimi del 
tipo "come quando fuori piove", per 
ricordare i semi delle carte.) Ognuna 
delle lettere serve dunque come indi¬ 
cazione. A mano a mano che queste 
indicazioni vengono rimosse, una alla 
volta, e la parola è ancora ricordata 
nella grafia giusta, esse tendono a di¬ 
ventare sempre meno necessarie e fi¬ 
niscono per non esserlo affatto. 

Il rafforzamento. Il ragazzo viene im¬ 
mediatamente informato se la risposta 
è giusta o sbagliata: i dati emersi dalle 
ricerche compiute avallano chiara¬ 
mente il valore dell’immediato ap¬ 
prendimento dei risultati. 

Il coinvolgimento. L’allievo partecipa 
attivamente, non recepisce passiva¬ 
mente. Il programma non si limita a 
scorrere mentre la persona "legge" o 
"dorme": lo studente deve reagire con¬ 
tinuamente perché il programma con¬ 
tinui. 


Matti Monster 

È un gioco di addestramento mate¬ 
matico che permette di impratichirsi 
nelle basi della moltiplicazione e della 
divisione. Dato il via al programma, 
appare sullo schermo un’immagine in¬ 
grandita del mostro e vengono date al 
giocatore tre opzioni: istruzioni, mol¬ 
tiplicazione o divisione. Quando si so¬ 
no lette le istruzioni, e si è deciso se 
esercitarsi nella moltiplicazione o nel¬ 
la divisione, ha inizio il gioco. 

I math monster sono esseri cattivis¬ 
simi che si nutrono di scadenti mate¬ 
matici, e vengono invece debellati da 
matematici provetti. Ogni partita met¬ 
te in azione fino a cento mostri e solo 
tre matematici, le cui doti scientifiche 
sono né più né meno quelle del ragaz¬ 
zo. Sullo schermo si vede un math 
monster che insegue un matematico; 
le loro posizioni relative mutano in ba¬ 
se alla soluzione data a un piccolo que¬ 
sito del tipo "8 per 9". Se la risposta 
data è 72 il matematico guadagna ter¬ 
reno, avvicinandosi a uno scintillante 
martello con il quale potrà sconfiggere 
il nemico. Se la risposta non è 72 (o 
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Math Monster. Il mostro, simpatico ed esperto in matematica, propone una serie di 
domande mentre insegue il bambino (illustrazione in alto); se le risposte sono 
giuste, il bambino riesce a raggiungere il cartello situato a una certa distanza e a 
darlo in testa al mostro (illustrazione al centro); se invece le risposte sono inesatte, 
il mostro raggiunge il bambino (illustrazione in basso). 


non è in assoluto), il mostro si avvicina 
un po’ alFinseguito e, per un breve 
periodo, viene mostrata la risposta 
esatta in modo che il giocatore la possa 
esaminare. 

Se il mostro raggiunge la figura in 
corsa questa scompare, l’altoparlante 
dice "UH—OH!" e sullo schermo com¬ 
pare la parola "BURP". Poi viene data 
la soluzione esatta del problema mate¬ 
matico, le figure riprendono la posi¬ 
zione originaria (l’inseguito è il nume¬ 
ro due: dopo di lui ce n’è solo un altro 
a disposizione del giocatore) e viene 
presentata una nuova operazione. 

Se il giocatore riesce a rispondere in 
modo esatto a sette problemi, la figura 
in corsa raggiunge il martello; a questo 
punto comincia il divertimento. Dopo 
aver afferrato il martello, la figura in 
corsa si volta e torna correndo verso il 
mostro, agitando felice la sua arma: 


tre colpi decisi sulla zucca sono suffi¬ 
cienti a placare qualsiasi mostro. Nel¬ 
l’angolo in alto a sinistra dello scher¬ 
mo compare un mostro supino, da po¬ 
co defunto. 

A mano a mano che ciascun mostro 
viene eliminato, ne compare un altro e 


il gioco continua. Un buon giocatore 
ben presto accumula nell’angolo in al¬ 
to a sinistra un intero mucchio di mo¬ 
stri morti. Quando viene colpito il de¬ 
cimo mostro, tutti i mostri morti scom¬ 
paiono, lasciando il posto, sotto l’area 
di gioco, a una piccola pietra tombale 
con la scritta "10"; intanto l’altoparlan¬ 
te dell’Apple suona un breve inno fu¬ 
nebre. 

E così via, fino a quando il giocatore 
perde i suoi tre corridori o sconfigge 10 
mostri. Poi gli viene chiesto se vuole 
giocare ancora. 

In questo programma, tutti i proble¬ 
mi di moltiplicazione hanno risposte di 
due cifre, mentre tutti i problemi di 
divisione hanno risposte di un’unica 
cifra. Quando è stata introdotta la pri¬ 
ma cifra di una risposta a un program¬ 
ma di moltiplicazione, il programma 
non fa nulla mentre attende che venga 
introdotta la seconda cifra. Perciò il 
giocatore può impiegare tutto il tempo 
necessario per introdurre questa se¬ 
conda cifra. Purtroppo se viene intro¬ 
dotta una prima cifra sbagliata non c’è 
alcun modo di correggerla. Il pro¬ 
gramma poteva essere scritto in modo 
da permettere la correzione, ma in tal 
caso il giocatore potrebbe deliberata- 
mente intodurre una prima cifra qual¬ 
siasi per fermare il mostro, impiegare 
tutto il tempo necessario per determi¬ 
nare la risposta giusta al problema e 
poi correggere la prima cifra e intro¬ 
durre l’intera risposta giusta. E, si sa, 
fidarsi è bene... 

La caratteristica pedagogica impor¬ 
tante della struttura del gioco è che la 
ricompensa più grande viene sempre 
per la riuscita e non per Finsuccesso. 
Ai bambini piace molto osservare il 
corridore che si volta e colpisce il mo¬ 
stro. E divertente anche vedere i mo¬ 
stri e le pietre tombali che si accumula¬ 
no e sentire la piccola melodia funebre 
ogni dieci mostri abbattuti. Al con¬ 
fronto è una cosa molto fiacca vedere 
il proprio corridore che scompare e 
sentire il "BURP" del mostro. 


Per evidenti ragioni di spazio, Applicando non pubblica i listati di questi 
tre programmi, ma offre il dischetto a tutti coloro che hanno figli (o nipotini) 
in età adatta per avere un primo approccio con il personal computer, un 
approccio però "intelligente", che quindi sia occasione di divertimento, ma 
anche di apprendimento: utilizzando questi programmi, infatti, il bambino 
non solo approfondisce quelle nozioni fondamentali che la scuola gli inse¬ 
gna, e che alla sua età sono spesso ostiche, ma si rende anche conto che il 
computer non serve solo a giocare, ma è un utile strumento che, utilizzato 
nel modo giusto, può aiutarlo nella vita. O meglio, un simile insegnamento 
sarete voi a darlo, con l’aiuto di questi semplici ma ben studiati programmi. Il 
costo del dischetto, comprensivo di spese di spedizione, è molto contenuto 
(20. 000 lire) e le istruzioni per il funzionamento dei programmi sono regi¬ 
strate nel dischetto stesso. Per ordinarlo, utilizzate il buono del Disk Servi¬ 
ce, alle pagine 80 e 81. 
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Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 

Difatti sembrano tutti uguali finche non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

]La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 


GLI ALTRI DISCHETTI 

chiusi un punto qui, 
un punto là lasciano 
gran parte dei 
lembi aperti. 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
“Solid-Seam Bonding”. 

Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli più rigidi e più 
resistenti. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio 
- ricordate: non tutti i dischetti 
sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 


BURROUGHS-MEMOREX S.P.A. 
Divisione Computer Media 
Via Ciro Menotti, 14 Tel. 02/718551 
20129 MILANO MI 


è importante scegli 



A Burroughs Company 





















scuola 


a cura del professor Enzo Tonti 


Stima delle colture 
arboree da frutto 



Tra gli argomenti di matematica 
finanziaria che i professori della 
scuola italiana di estimo hanno 
elaborato sul finire del secolo 
scorso, la stima dei frutteti 
riveste una particolare importanza 
didattica perché la sua struttura 
complessa e variamente 
articolata si presta 
all’applicazione di quasi tutte le 
formule di matematica finanziaria 
e permette all’insegnante 
di ribadire molti concetti 
fondamentali dell’estimo. 


L J importanza che la stima dei 
frutteti assume nell’ambito 
scolastico è messa in risalto, fra l’altro, 
dai temi ministeriali assegnati agli esa¬ 
mi di maturità per geometri e per peri¬ 
ti agrari: infatti su dodici temi di esti¬ 
mo assegnati dal 1970 al 1983, ben sei 
supponevano la conoscenza della sti¬ 
ma dei frutteti. 

Il programma proposto in questo ar¬ 
ticolo svolge il nucleo centrale dell’ar¬ 
gomento esposto nel titolo, proponen¬ 
dosi di calcolare: 

1) il valore del terreno nudo; 

2) il valore del fondo allo stato in cui si 
trova in un anno intermedio del ciclo, 
cioè il valore complessivo del terreno e 
della coltura in atto: VM (utilizzando 
le tre formule classiche) ; 


3) il valore del soprassuolo, cioè il 
valore della sola coltura in atto: 
VS. 

Esempio pratico 

Consideriamo, a titolo di esempio, 
un frutteto coetaneo del ciclo econo¬ 
mico di 28 anni; immaginiamo che le 
produzioni annue siano le seguenti: 


dall’anno 1 all’anno 3 
nessuna produzione; 


dall’anno 1 all’anno 4 
lire 1.200.000; 


dall’anno 5 all’anno 10 
lire 2.500.000; 
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dall’anno 11 all’anno 24 
lire 3.200.000; 


dall’anno 25 all’anno 28 
lire 2.600.000. 


Dall’abbattimento delle piante, a fi¬ 
ne ciclo, si ricaveranno 800.000 lire al 
netto delle spese. 

Le spese d’impianto invece siano: 
lire 6.000.000 iniziali, ciò significa al 
primo anno anticipate 
lire 2.000.000 posticipate al secondo e 
al terzo anno. 

Le spese di coltivazione, media¬ 
mente anticipate sono: 


dall’anno 4 all’anno 10 
lire 1.100.000 annue; 


dall’anno 11 all’anno 24 
lire 1.600.000 annue; 


dall’anno 25 all’anno 28 
lire 1.300.000 annue. 


Le spese per lo spianto sono nulle. 


Soluzione 

Il listato presenta una struttura se¬ 
quenziale, con un numero limitato di 
sottoprogrammi; gli argomenti sono 
ordinati in blocchi compatti e facil¬ 
mente localizzabili. Inoltre i REM che 
accompagnano le istruzioni nel corso 
del programma sono sufficienti a gui¬ 
dare chi volesse seguire il procedere 
logico delle routine, senza bisogno di 
altre spiegazioni. 

Seguendo l’esempio vediamo come 
procedere nella soluzione del proble¬ 
ma precedente. Lanciamo il program¬ 
ma e inseriamo i dati man mano che 
vengono richiesti: 


1) lunghezza del ciclo: N = (28) 


2) per l’inserimento degli importi, un 
particolare menù ci permette di sce¬ 
gliere l’opportuna unità di misura (per 
esempio, milioni di lire <RE- 
TURN>) 


3) i prodotti vanno inseriti secondo la 
sequenza: 


A=3 P=0 

A=4 P=1.2 

A=10 P=2.5 
A=24 P=3.2 
A=28 P=2.6 


L’inserimento dei prodotti è reso 
evidente mediante un grafico provvi¬ 
sorio che si forma man mano: subito 
dopo, il programma presenta il grafico 


LISTATO 


definitivo dei prodotti. 

Il grafico provvisorio, appunto per¬ 
ché tale, funziona in maniera accetta¬ 
bile quando si inseriscono valori vero- 


!0 !F PEEK (103) = 1 AND PEEK (104) = 44 AND PEEK (16384 
) = 0 THEN SS 

20 POKE 103.1: POKE 194,64: POKE 14384,0: PRINT CHR$ <4>;' 

RUN FRUTTETI 1 
30 REM 
30 REM 
84 rem; 

88 REM STIMA DEI FRUTTETI 
92 RE* 

94 rem 

98 RE*. 

99 REM PROF. F. SCQPEL 

100 REM 

200 GOTO 3000: REM INIZIO 

221 REM-- 

222 RE* ESEGUI I CALCOLI 

223 REM —.. 

225 TEXT : HOME : HTAB 11: VTAB 10: PRINT 'ESEGUO I CALCOLI 

ir 

230 SS = 0:SR = 0:SP = 0 

240 FOR I = L TO K: REM B L* E G K S SONO DEFINITI OGNI VGL 
TA PRIMA DI CHIAMARE LA SUBR0UT1NE 
250 X(i) = PCI) * (U * R) * <;K - I»: REM SOMMATORIA DELLE 
PRODUZIONI: P(I) 

260 HI) = SU) * «I + R5 1 (K - I»: REM SCULTORIA DELL 
E SPESE:SU) 

280 SS = SS 4 Y<1): REM SOMMA I MALORI DI 260 
285 8° = SP * X< I > : REM SOffrlA I MALORI DI 250 
290 NEXT I 

295 SR = SP - SS: REM CALCOLA IL REDDITO PERIODICO 

296 HOME : RETURN 

300 REM .. 

31C REM CONI ROLLO DEI DATI 
320 REM .-. 

325 HOME : REM I DATI ASSEGNATI COMPARIRANNO IN GRUPPI DI 

20 

327 (TAB 3: PRINT TAB< 1>:VWQ a ; TAB( 8) ; "PRODOTTI " : TA8( 

24); 8 SPESE s : PRINT * * 

330 IF K -li = 19 tmen FOR I = L T0 K: PRINT TAB( 1);I 
: TAB( 6);P<I); TAB( 24);S<I): NEXT : GOTO 395 
340 FOR I = L 70 L 4 l? : PRINT TAB( 1);I; TAB( 8);PU); TAB< 

24);S<I): NEXT 
345 SET 

350 IF K - L < = 40 THEN FOR I = L ♦ 20 TO K: PRINT TAB< 

1 );3: TAB< 8):PU); TAE( 24):S<I): NEXT : GOTO 395 
360 FOR ! = L * 20 T0 L 4 40 : PRINT TAB( 1);I; TAB< 8);P(I 
); TA6( 24);S(I): NEXT 
365 SET ZI 

370 IF K < = 60 THEN FOR I = L ♦ 41 T0 K: PRINT TAB( 1); 

I: TAB( S);FU): TAB( 24);S<I;: NEXT : GOTO 395 
380 FOR I = L 4 41 T0 L * 60: PRINT 7A8C 1 > ;I : TA8( 8);PU 
): T AB-' 24);$U) : NEXT 
385 SET li 

390 FOR 2 = L 4 6! T0 K: PRINT TAB< 1);I: TAB( 8);PU): TAB< 

24;;S(I): NEXT 

395 HTAB 30: VTAB 24: PRÌN T "(RETURN)': SET ZI: HOME : RETURN 

400 REM -- 

410 REM COMPONI IL GRAFICO 
420 RE* -- 

425 HGR : HC0L0R= 3:2 = 0: REM RISER'JA FINESTRA PER INSERÌ 
MENTO VALORI 

430 IF 8A = 3 THEN 2 = (L - 1) * Q: REM VEDI REDDITI FUTU 
RI,1661 

435 HPL0T 0,75 T0 N * Q.75: REM TRACCIA UNA LINEA 

440 FOR 1 = 0 T0 N » Q STEP G: HPL0T 1,77 T0 1,73: NEXT : REM. 

INDICA GLI INTERVALLI DEGLI MN1 
445 FOR I = L T0 K: RE* VEDI 240 
452 FU) = 75 * (1 - FU) / PM): REM DIMENSIONA L'ORDINATA 
POSITIVA 

460 HPL0T 2,75 T0 Z 4 Q.75 TO Z 4 Q FU) T0 2,FU) TO 2,75: 

REM DISEGNA UN RuTANGOLINO 
470 2 = 2 * Q: REM DISEGNA IL RETTANGOLI NO SUCCESSIVO 

475 NEXT I: REM IL GRAFICO DEI PRODOTTI E COMPLETATO 

Continua 


ricavi per lo spianto: 0. 
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509 HCOL0R= 3:Z = 0: REM PER LE NOTE MEDI IL GRAFICO DELLE 

PRODUZIONI 

504 IF BD = 0 THEN RETURN : REM SERME SOLO DURANTE L' INSE 
PIMENTO DEI DATI 

505 IF SA = 3 THEN Z = <L - 1) * Q 

510 FOR 1 = L TO K 

515 B(I) = 75 « (1 + SU) / PM) 

520 IF B(I) > 145 THEN 9(1) = 145: REM EMITO DI USCIRE DAL 
LA PAGINA GRAFICA 

530 HPLOT Z.75 TO Z ♦ 9,75 TG Z ♦ Q,B(I) TO Z.B(I) TO Z,?5 
540 Z = Z ♦ G 

545 NEXT I: REM IL GRAFICO DELLE SPESE E'COMPLETATO 
555 RETUffri 


Ó00 REM GRAFICO PROMMISORIO 
601 REM ..-. 

615 REM COMPARE SOLO DURANTE L'ASSEGNAZIONE DEI PRODOTTI 
625 REM CONTROLLO L'ORDINATA 
630 IF X(3) = 0 THEN W = 80: GOTO 670 
635 FOR J = AA TO A: IF X<!) > PK THEN U = U - 20: GOTO 650 
: NEXT 

640 FOR J = M TO A: IF X(I) < PK THEN W = U ♦ 35: GOTO 645 
: NEXT 

645 IF y ) 80 THEN U = 75: GOTO 670 

650 IF U < 5 THEN U = 2: GOTO 670: REM 

670 FOR J = AA * 9 TO A * 9: HPLOT J,8Q TO J,W: NEXT 

675 PK = X< I ) : RETURN 

699 REM .. 

700 REM PER FACILITARTI AD 

701 REM INSERIRE I MALORI 

702 REM - 

705 BM = 1000000 

710 HTAB 8: MTA8 9: PRINT 8 CON QUALE UNITA DI MISURA 8 

711 HTAB 8: MTA8 10: PRINT "VUOI INTRODURRE I MALORI? 8 

715 HTAB 8: MTA8 14: PRINT "UNITA DI LIRE <1>" 

720 HTAB 8: MTAB 16: PRINT -MIGLIAIA DI LIRE <2>“ 

725 HTAB 8: MTAB 18: PRINT “MILIONI DI LIRE < RETURN) 8 

730 HTAB 8: MTAB 21: INPUT 'ASPETTO CHE TU SCELGA B ;BZ* 

735 IF BZ* = M* THEN BM = 1 

736 IF BZ$ = B 2 B THEN BM = 100C 
740 HOME : RETURN 

744 REM - 

745 REM PRESENTA LE SOMMATORIE 

746 REM - 

750 HOME : HTAB 4: MTAB 6: PRINT “SOMM. PRODOTTI LIRE “;SP 
755 HTAB 4: MTAB S: PRINT “SOMM. SPESE LIRE “;SS 
760 HTAB 4: MTAB 10: PRINT “REDDITI LIRE # ;SR 

770 RETURN 

795 HTAB 30: MTAB 23: PRINT 8 (RETURN) 8 ; : GET li: RETURN 

805 REM - 

810 REM ASSEGNA I PRODOTTI 

815 REM -- 

820 GOSUB 700 

825 HGR : HCOLOR= 3: HPLOT 0,80 TO N * 9,80: REM TRACCIA UN 
A LINEA 

830 FOR I = 0 TG N * Q STEP 9: HPLOT 1,82 TO 1,78: NEXT : REM 
INDICA GLI ÌNTERMALLÌ DEGLI ANNI 
835 MTAB 23: PRINT "ASSEGNAZIONE DEI PRODOTTI (RETURN) 8 : GET 
ZI: HOME 

840 MTAB 22: PRINT 8 A = AMO DI FINE STAZIONE 1 
845 PRINT “P = PRODOTTO ANNUO POSTICIPATO 8 : PRINT “ “ 

850 AA = 0:1 = Q:PK = 0: REM AZZERA LE ‘MARI ABI LI 
855 W = 80: REM SERME PER IL GRAFICO PROMMISORIO 
360 INPUT 'A= 5 ;AB 

362 A = INT (AB): REM MI GARANTISCO CONTRO GLI ERRORI DI B 
ATTUTA 

864 A2 = AA -f 1 

365 IF A ( = (AA) THEN PRINT "NON MENO Di S ;A2: GOTO 860 
870 IF A > N THEN PRINT "NON PIU'' DI B :N: GOTO 860 
872 IF A ( AB THEN PRINT ‘ACCETTO L'INTERO:A= 8 ;A 

875 HTAB 23: ‘MTAB 23: INPUT "P= S :BP 

876 IF BF < 0 THEN PRINT "NON ACCETTATO": GOTO 875: REM 
MI GARANTISCO CONTRO GLI ERRORI DI BATTUTA 

877 X(I) = BP * BM 

880 FOR J = AA ♦ 1 TO A:P(J> = X(I): NExT 
835 FOR J = N + AA ♦ 1 TO N ♦ A:P(J) = XU): NEXT 
890 REM SU DUE CICLI SUCCESSIMI,ASSEGNA LA PRODUZIONE AGLI 
ANNI DI COMPETENZA 
gv4 qosuB 600 

895 IF*A = N THEN GOTO 910: REM FINE DELL'ASSERZIONE P 
RODOTTI 

900 AA = A: GOTO 860: REM ASSER GLI ALTRI MALORI 
906 D = 0 

910 INPUT “RICAMI PER LO SPIANTO, LIRE 8 ;D 


911 D = D * BM: REM MEDI 700 

915 P(N) = P(N) + D:P(N2) = P(N2) ♦ D: REM AGGIUT4GI LO S 

PIANTO AI PRODOTTI DELL'ULTIMO AMO 

916 D = 0 

930 PM = 1: REM PONGO 1 PER EMITARE ERRORI DI DIMISIONI PER 
ZERO 

935 FOR I = 1 TO N 

940 IF PCD > PM THEN PM = P (I) 

945 NEXT : REM IL 'MALORE MAX. DI P(I) SERME PER DIMENSIONA 
RE IL GRAFICO 

950 TEXT : HOME :L = !:K = N: GOSUB 410: REM COMPONI IL GR 
AF1CO DEFINITIMI! 

970 MTAB 22: PRINT “CONFERMI I PRODOTTI INSERITI? S/N “: GET 
Al 

975 IF Al = “N" THE?4 HOME : GOTO 825 

1009 REM -- 

1010 REM ASSEGNA LE SPESE 

1011 REM - 

1025 HOME 

1030 MTAB 23: PRINT “ASSEGNAZIONE DELLE SPESE (RETURN) 8 : GET 
ZI: HOME 

1040 'MTAB 22: PRINT 8 A = ANNO DI FINE STAZIONE 8 
1045 PRINT 8 S = SPESA AhMUA 8 
1350 AA = 0:1 = 0:Z = 0: REM AZZERA LE FRIABILI 
1070 INPUT “A = fi ;AC 

1972 A = INT (AC): REM MI GARANTISCO CONTRO GLI ERRORI DI 
BATTUTA 

10?4 A3 = AA ♦ 1 

1075 IF A ( = (AA) THEN PRINT 8 NON MENO DI * ;A3: GOTO 107 
G 

1080 IF A > N THEN PRINT “NON PIU" DI “:N: GOTO 1070 
1082 IF A ( AC THEN PRINT 'ACCETTO L'INTERO:A= 8 ;A 

1090 HTAB 23: MTAB 22: INPUT “S= B ;BS 

1091 IF BS ( 0 THEf'i PRINT ‘NON ACCETTATO 8 : GOTO 1090: REM 
MI GARRISCO CONTRO GLI ERRORI DI BATTUTA 

1092 X(I> = BS * BM 

1095 IF X(I) = 0 THEN GOTO 1120 

1100 PRINT B POST.(RTN>/ ANTlC.(l)/ MED ANTIC.(2) 

1106 INPUT ZI: REM PER PORTARE LE SPESE A FINE 0, MEDI 
1165 

1115 Z(D = 'MAL ili) 

1120 FOR J = AA + 1 TO A:S0(J) = X<!):S(J) = SO(J):K(J) = Z 
(I): NEXT 

1130 FOR J = N + AA + 1 TO N + A:S0(J) = X(I):S(J) = S0(J): 
K(J) = Z ( I ): NEXT 

1131 REM ANALOGO AD 890 

1135 L = Aft * 1:« = A: GOSUB 505 

1140 AA = A: REM INCREMENTA 3 A' :D=0 

1145 IF A = N THEN GOTO 1150 

1148 GOTO 1070: REM INSERISCI LE ALTRE SPESE 

1150 INPUT 'SPESE PER LO SPIANTO, LIRE H ;D: HOME 

1151 D = D * BM: REM MEDI 700 

1152 MTAB 22: PRINT “CONFERMI LE SPESE INSERITE? S/N“: GET 
Pii 

1155 IF Al = “N 8 THEN GOTO 950: REM AZZERA LE SPESE E R1C 
OMPON1 IL GRAFICO 

1160 HOME : MTAB 23: INPUT "INDICA IL TASSO DI CAPITALIZZAZ 
IONE :XX)“;BB 

1161 R = BB / 100: IF BB = 0 THEN PRINT “SCEGLI UN TASSO PO 
SITIMC 8 : GOSUB 795: GOTO 1160 

1162 TEXT : HOME : HTAB 11: 'MTAB 10: PRINT “ESEGUO I CALCOL 

T * 

1165 4 FOR J = 1 TO N2: REM RIFERISCO LE SPESE A FINE AMO 

1170 IF K(J) = 1 THEN S(J) = S0(«J) * (1 4 R) 

1175 IF K(J> = 2 THEN S(J) = S0(J) * (1 4 R / 2) 

1180 NEXT 

1185 SCN) = S(N) 4 D:S(N2) = S(N2) 4 D 
1190 D = 0: REM ASSEGNA LE SPESE DELLO SPIANTO ALL'ULTIMO 
ANNO DEL CICLO 

1195 BD = 1: REM SERME PER LA 504 

1204 REM .. 

1205 REM SOLUZIONE DEL PROBLEMA 

1206 REM .r. 

1210 GOSUB 5000: REM ‘MAI AL MENU 

1214 HOME : HTAB 10: MTAB 7: PRINT 8 .-. 8 

1215 HTAB 10: MTAB 9: PRINT “SOLUZIONE DEL PROBLEMA 8 

1216 HTAB 10: MTAB 11: PRINT 8 - 8 

1220 IF BC = 3 THEN GOTO 1350 REM CALCOLA SOLO U1, CICLI 

FITTIZI 

1224 REM ---.-. 

1225 REM CALCOLO DEL MALORE TERRA: MO 

1226 REM —.-. 

1230 MTAB 14: PRINT ‘CALCOLO DEL MALORE TERRA: MO 8 


72 
























1231 PRINT * --- 8 

1235 GOSUB 7?5 

1240 K = NiL = 1 : REM DETERMINA L'INTERVALLO DI TEMPO DA CO 
NSIDERARE 
1245 GOSUB 222 

1250 HOME : PRINT "VUOI CONTROLLARE I DATI INSERITI? S/N 8 

1255 GE 7 C$: HOME 

1260 IF CI = "S" THEN GOSUB 310 

1270 PRINT ■ VUOI VEDERE IL GRAFICO? S/N" 

1275 SET W: HOME 

1280 IF 0$ = *S" THET4 GOSUB 410 

1285 GOSUB 795 : TEXT 

1305 REM PRESENTA I RISULTATI 

1310 REM .. 

1320 GOSUB 745 
1325 GOSUB 795 

1330 VO = SR / («1 4 R) * N) - 1): REM FORMULA DI VO 
1340 HTAB 10: VTAB 16: PRINT ‘VALORE DEL CAPITALE TERRA" 

1345 HTAB 16: VTAB 18: PRINT "LIRE ":V0 

1350 GOSUB 795: HOME 

1355 IF BC = 2 THEN GOTO 2000: REM HA CALCOLATO SOLO VO 

1399 REM - 

1400 REM CALCOLO DI VM 

1401 REM —.—- 

1405 HTAB 10: VTAB 7: PRINT 8 CALCOLO DI VM" 

1410 HTAB Ì0: VTAB 9: PRINT D - 3 

1420 VTAB 12: INPUT "INDICA L'ANNO DI STIMA, M= ";MA 

1422 M = INT (M)ì REM MI GARANTISCO CONTRO GLI ERRORI DI 
BATTUTA 

1424 IF M < 1 THEN PRINT "NON ACCETTATO": GOTO 1350 
1426 IF M = } N THET4 PRINT a NOf4 ACCETTATO": GOTO 1350 

1428 IF M < (MA) THEN PRINT "ACCETTO SOLO L'INTERO: M= 

M: GOSUB 795 

1430 IF BC > 3 THEN GOTO 1570: REM SALTA VM, CICLO FITTI 
ZIO 

1434 REM .. 

1435 REM VM: METODO DEL CICLO FITTIZIO 

1436 RE* . 

1439 HOME 

1440 HTAB 6: VTAB 10: PRINT a < METODO DEL CICLO FITTIZIO >" 
1445 GOSUB 795 

1450 K = N + M:L = M + 1: REM INDICA L'INTERVALLO DEL CICLO 
FITTIZIO 
1455 GOSUB 222 

1470 PRINT "VUOI CONTROLLARE I DATI INSERITI? S/N " 

1475 SET CI: HOME 

1480 IF CI = S S* THEN GOSUB 310 

1485 PRINT "VUOI VEDERE IL GRAFICO’ S/N" 

1490 GET DI: HOME 

1495 IF DI = 5 S" THEN GOSUB 410 

1500 GOSUB 795: TEXT 

1505 REM PRESENTA I RISULTATI 

1510 REM ... 

1520 GOSUB 745 
1525 GOSUB 795 

1530 VI = SR / («1 4 R) * N) - 1): REM FORMULA DI VM, CiCL 
0 FITTIZIO 

1535 IF BC = 3 THEN GOTO 1550: REM VO NON E STATO CALCOLA 
TO 

1540 HTAB 10: VTAB 14: PRINT "VALORE DEL CAPITALE TERRA* 
1545 HTAB 16: VTAB 16; PRINT “LIRE L :V0 
1550 HTAB 1: VTAB 19: PRINT "VALORE DÉL FRUTTETO, METODO DE 
L CICLO* 

1555 VTAB 21: PRINT "FITTIZIO, LIRE ";V1 
1560 GOSUB 795: HOME 

1565 IF BC = 3 THEN GOTO 2000: REM iti CALCOLATO SOLO VM, 
CICLI FITTIZI 

1570 IF BC = 5 THEN GOTO 1800: REM VAI A VM,REDDITI PASSA 
TI 

1575 HOME 

1599 REM.. 

1600 REM METODO DEI REDDITI FUTURI 

1601 REM.-. 

1620 HTAB 6: VTAB 10: PRIN 7 METODO DEI REDDITI FUTURI >• 
1625 GOSUB 795 

1640 L = M + 1:K = N: REM INDICA L'INTERVALLO DI TEMPO CONS 
I DERATO 

1645 GOSUB 222 

1650 PRINT "VUOI CONTROLLARE I DATI INSERITI’ S/N" 

1655 GET CI: HOME 

1660 IF CI = a S B THEN GOSUB 310 

1661 BA = 3: REM SERVE PER LA POSIZIONE DEL GRAFICO 
1670 PRINT "VUOI VEDERE IL GRAFICO’ S/N" 


1675 GET DI: HOME 

1630 IF DI = "$" THEN GOSUB 410 

1685 BA = 0 

1690 GOSUB 795: TEXT 

1705 REM PRESENTA I RISULTATI 

1710 REM .-. 

1720 GOSUB 745 
1725 GOSUB 795 

1730 V2 = (VO t SR) / (1 4 R) * (N - M): REM FORMULA DI VM, 
REDDITI FUTURI 

1740 HTAB 10: ‘VTAB 14: PRINT "VALORE DEL CAPITALE TERRA" 

1745 HTAB 16: VTAB 16: PRINT * LIRE * :V0 

1750 VTAB 19: PRINT "VALORE DEL FRUTTETO, METODO DEI REDDI" 

1755 VTAB 21: PRINT "TI FUTURI, LIRE ";V2 

1760 GOSUB 795: HOME 

1765 IF BC < > 4 THEN GOTO 1800 

1770 PRINT "VUOI CONOSCERE VS? S/N" 

1771 GET Bl: HOME 

1775 IF Bl = "N B THEN GOTO 2000 

1780 VS = V2 - VO: GOTO 1960: REM PRESENTA VS 

1799 REM .. 

1800 REM METODO DEI REDDITI PASSATI 

1801 REM .. 

1805 HOME 

1820 HTAB 6: VTAB 10: PRINT "< METODO DEI REDDITI PASSATI > 
1825 GOSUB 795: HOME 

1840 K = M : L = 1 : REM INDICA L'INTERVALLO DI TEMPO CONSIDE 
RATO 

1845 GOSUB 222 

1850 PRINT "VUOI CONTROLLARE I DATI INSERITI? S/N" 

1855 GET CI: HOME 

1860 IF CI = "S" THEN GOSUB 310 

1870 PRINT "VUOI VEDERE IL GRAFICO? S/N" 

1875 GET DI: HOME 

1860 IF DI = S S 3 THEN GOSUB 410 

1890 GOSUB 795: TEXT 

1900 REM PRESENTA I RISULTATI 

1901 REM. 

1905 GOSUB 745 

1910 GOSUB 795 

1915 V3 = VO » <1 ♦ R) * M - SR: REM FORMULA DI W, REDDITI 
P ASSATI 

1920 HTAB 10: VTAB 14: PRINT "VALORE DEL CAPITALE TERRA* 

1925 HTAB 16: VTAB 16: PRINT " LIRE "sVO 

1930 ‘VTAB 19: PRINT "VALORE DEL FRUTTETO, METODO DEI REDDI" 

1935 VTAB 21: PRINT "TI PASSATI, LIRE ";V3 

1936 GOSUB 795: HOME 

1939 REM-- — 

1940 REM VALORE DEL SOPRASSUOLO 

1941 REM - 

1945 IF BC = 1 THEN GOTO 1957: REM CALCOLA VS 
1950 PRINT "VUOI CONOSCERE VS’ S/N* 

1952 GE 7 Al; HOME 

1955 IF Al = "N" THEN GOTO 2000 

1957 VS = V3 - VO 

1960 HTAB 10: VTAB 7: PRINT "CALCOLO DI VS n 

1961 HTAB IO: VTAB 3: PRINT 6 -" 

1964 GOSUB 795 

1970 HTAB 2: VTAB 11: IF BC < > 4 THEN PRINT "VALORE DEL 
FRUTTETO L. B ;V3 

1975 HTAB 2: VTAB 11: IF BC = 4 THEN PRINT 8 VALORE DEL FRU 
TTETG L.“:V2 

1980 HTAB 2: VTAB 13: PRINT "VALORE DEL TERRENO L.";V0 

1985 HTAB 2: VTAB 16: PRINT "SOPRASSUOLO L.";VS 

1990 GOSUB 795: HOME 

1999 REM .. 

2000 REM CONCLUSIONI 

2001 REM - 

2005 HTAB 8: VTAB 4: PRINT "RIASSUMENDO:" 

2010 H 7 AB 8: VTAB 7: PRINT "TASSO DI CAP., R= ":BB:"X 8 
2015 HTAB 1: VTAB 17: IF BC = 2 THEN PRINT "L'ANNO DI STIM 
A NON E' STATO INDICATO" 

2020 HTAB 8: VTAB 9: IF BC ( >2 THEN PRINT "AMO DI STIM 
A M= " jM: PRINT * 5 

2021 PRINT 1 * 

2025 IF VO = 0 THEN GOTO 2035 

2030 HTAB 8: VTAB 12: PRINT "VO = ";V0: PRINT " " 

20G5 IP VI = 0 THEN GOTO 2045 

2040 HTAB 3: PRINT "VM = B :V1:" CICLI FITTIZI": PRINT " " 

2045 IF V2 = 0 THEN GOTO 2055 

Continua 
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2C50 HTAB 8; PRINT “VM = ":V2: S REDDITI FUTURI 3 : FRI NT * s 
2055 IF V3 = 0 THEN GOTO 2065 

2080 HTAB 3: FRINT S VM = “;V2;“ REDDITI PASSATI 1 : FRINÌ “ a 

2085 IF US = 0 THEN GOTO 2080 

2070 HTAB 8: FRINÌ 5 US = a ;VS: FRINÌ * 9 

2080 GOSUB 7?5; HOME 

2100 FRINÌ “VUOI RIPROVARE? S/N" 

2105 GE T A$: FRINÌ R 1 
2110 IF A* = D N“ T HEN PRIMI “END" : END 
2115 V0 = 0:V1 = G:V2 = 0:V3 = G:VS = 0:N = 0: REM AZZERA I 
VALORI 

2120 frinì “vuoi cambiare il tasso? s/n 9 

2130 GET 8$: FRINÌ s 8 

2140 IF B* = r *S“ THEN INPUT “INDICA IL NUOVO TASSO X00 8 ;B 
E: GOTO 1181 
2150 GOTO 1205 

2999 REM . 

3000 REM INIZIO 

3001 REN - 

3005 HOME 

3010 HTAB 10: VTAB 8: FRINÌ 
3020 HTAB 10: VTAB 10: PRIMI 
3030 HTAB IO: VTAB 12: FRINÌ 
3040 GOSUB 795 

3050 HOME : HTAB 5: FRINÌ “STIMA 
COETANEO.NELL’IPOTESI CHE IL 
EMENTE SULLO STESSO TERRENO 
3080 HTAB 1: VTAB 8: FRINÌ “-STIMA DEL CAPITALE TERRA: V0‘ 
3070 HTAB 1: VTAB 10: FRI NT “-STIMA: DEL FRUTTETO IN UN" 

3080 HTAB 1: VTAB 12: FRINÌ * ANNO INTERMEDIO DEL CICLO 9 
3100 HTAB 12: VTAB 14: FRINÌ "D METODO DEL CICLO FITTIZIO* 
3110 HTAB 12: VTAB 18: PRIMI “2) METODO DEI REDDITI FUTURI 8 
3120 HTAB 12: VTAB 18: FRINÌ a 3) METODO DEI REDDITI PASSATI 


'♦a****************' 

"STIMA DEI FRUTTETI" 
“****************** 9 


DI UN FRUTTETO AUTONOMO E 
SUO CICLO SI RIPETA PERENN 


3125 HTAB 1: VTAB 20: FRINÌ “-VALORE DEL SOPRASSUOLO: 


3999 REM.-.-.. 

4000 REM ASSEGNA LUNGHEZZA CICLO 

400: REM--—.. 


4040 GOSUB 795: HOME 

4050 HOME : FRINÌ “INDICA LA LUNGHEZZA DEL CICLO" 

4080 VTAB 5: FRINÌ 8 <fttX 80 AW1) C ;: INPUT B N= “;NB 
4082 N = INT (NB): REM MI GARANTISCO CONTRO GLI ERRORI DI 
BATTUTA 

4070 IF N > 80 THEN FRINÌ 5 NON ACCETTATO": GOTO 4000 
4075 IF N < ! THEN FRINÌ "NON ACCETTATO 2 : GOTO 4000 
4080 IF N < NB THEN FRINÌ “ACCETTO SOLO L'INTERO: N= ";N 
4085 G = INT (270 / N); REM E" L UNITA* DI MISURA CHE DIM 
ENSIONA L'ASCISSA DEL GRAFICO 
4090 N2 = 2 * N 

4100 DIM X(N2),Y(N2),M(N2),F(N2),P(N2),S<N2),B(N2),K(N2),Z( 
N2).S0(N2) 

4105 GOSUB 795: HOME 

4110 GOTO 810: ASSEGT4A I DATI 

4998 REM 

4999 REM - 

5000 REM M E N U 

5001 REM - 

5002 REM 
5005 HOME 

5010 HTAB 7: VTAB 8: FRINÌ “QUALI VALORI TI INTERESSWO? 8 

5020 HTAB 7: VTAB 9: FRINÌ “-TUTTI I VALORI <1>" 

5030 HTAB 7: VTAB 11: FRINÌ “-SOLO VO <2> 

S 

5040 HTAB 7: VTAB 13: BRINI '-SOLO LW. CICLO FITTIZIO <3> 
« * 

5050 _HTAB 7: VTAB 15: PRINT '-VO E VH, REDDITI FUTURI <4) 

5060 HTAB 7: VTAB 17: PRINT '-VO E VM, REDDITI PASSATI <5> 

5070 HTAB 7: VTAB 19: PRINT '-PER VS: SCE3LI 0 (4), 0 <5> 

5080 HTAB 7: VTAB 22: INPUT “-ASPETTO CHE TU SCELGA ': 

BC 

5090 IF BC > 5 THEN BC = I 

5100 IF BC < ! THEN BC = I: REM MI GARANTISCO CONTRO GLI E 

RRORI D! BATTUTA 
5110 RETURN 


simili del frutteto, cioè cinque o sei 
valori prima crescenti e poi decrescen¬ 
ti. Rispetto ad altri metodi, tuttavia, 
questo metodo offre il vantaggio di 
non dover predeterminare il numero 
delle stazioni del frutteto e di non do¬ 
ver inserire anticipatamente il numero 
dei fattori di riduzione in scala. 

Comunque, appena assegnati tutti i 
prodotti, il programma ricerca auto¬ 
maticamente il fattore di riduzione in 
scala (denotato con PM, prodotto 
massimo assegnato) e ridisegna il gra¬ 
fico. 

4) per le spese si ripetono le stesse 
sequenze: (A=anno; S=spese) ; però, 
quando S è diverso da zero, bisogna 
rispondere a un’ulteriore domanda: 


spese anticipate <1>; 
mediamente anticipate <2>; 
posticipate <RETURN>. 


La sequenza dei valori da inserire 
nell’esempio considerato è quindi: 


a=l s=6 <1> 

a=3 s=2 <RETURN> 

a=10 s=l. 1 <2> 
a=24 s=l. 6 <2> 
a=28 s=l. 3 <2> 


spese per lo spianto: O 


5) l’ultimo dato richiesto è il tasso di 
capitalizzazione (per esempio, 5%). 

Da questo momento il computer è 
predisposto per risolvere il problema e 
invita a scegliere gli argomenti che in¬ 
teressano, avvertendo pure che per 
VS dobbiamo prima calcolare VO e 
VM. In base alle scelte esso procede 
nei calcoli, chiedendoci al momento 
opportuno l’anno di stima (per esem¬ 
pio, 12). Alla fine di ogni calcolo ci 
presenta i risultati. Il programma ter¬ 
mina poi con un quadro riassuntivo dei 
valori e con la possibilità offertaci di 
ripetere i calcoli, variando a piacere il 
tasso di capitalizzazione e l’anno di 
stima. 

Il tempo reale di esecuzione del pro¬ 
gramma è di pochi minuti; volendo 
risolvere lo stesso problema con il me¬ 
todo tradizionale (calcolatrice tascabi¬ 
le e tavole finanziarie) non sarebbe 
sufficiente un’intera ora. 

Un avvertimento: può succedere 
che, nel calcolare VM con tre metodi, i 
risultati non coincidano: non c’è da 
preoccuparsi, la causa è solo degli ar¬ 
rotondamenti. Infatti le tre formule 
sono delle identità matematiche. 


Osservazione 

importante 

Poiché il programma è lungo, qua¬ 
lora fosse caricato in memoria dalla 
posizione usuale (2048) esso invade¬ 
rebbe la zona di memoria destinata 
alla prima pagina grafica 
(8192-16383). Il risultato sarebbe che 
all’apertura della pagina grafica, con il 
comando HGR, la parte di program¬ 
ma che invade la pagina grafica ver¬ 
rebbe cancellata. Per evitare questo 
inconveniente, sono state introdotte le 
due righe 10—20 che provvedono a ca¬ 
ricare il programma sopra la prima pa¬ 
gina grafica. È però necessario salvare 
il programma con lo stesso nome con¬ 
tenuto nella 20, cioè FRUTTETI. 

Se dopo questo programma si fanno 
girare altri programmi, questi vengo¬ 
no sempre caricati sopra la prima pagi¬ 
na grafica. Per ripristinare la posizione 
usuale si deve battere FP. 

Francesco Scopel 


Questo programma è disponibile su di¬ 
schetto. L’elenco, i prezzi e le modalità 
d’ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 

- K 
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DAI 

un telefono anche al tuo computer 



Terminale CX-21 

(Chiamante) 



Personal computer CX-21 

(Chiamante) 



Centrale telefonica 


CX-21 Personal computer 
(Chiamato) 


L’accoppiatore acustico CX-21 del¬ 
la Epson è uno strumento conveniente e 
affidabile dalle grandi prestazioni che 
dà la nuova dimensione delle telecomu¬ 
nicazioni al vostro computer. 

Il CX-21 funziona a batterie ricarica¬ 
bili ed è particolarmente adatto ai per¬ 
sonal computer portatili, come ilPX-8 e 
HX-20, per esempio. 

Per accedere alle informazioni di 
una banca dati, o più semplicemente 
per comunicare con un altro computer 
basta inserire la cornetta e comporre il 
numero telefonico corrispondente. 

Leggero, compatto, elegante ed af¬ 
fidabile il CX-21 è progettato per adat¬ 
tarsi a tutti gli apparecchi telefonici e 
consentire lo scambio rapido e sicuro di 
programmi e dati. 

Caratteristiche 



- Realizzato con speciali circuiti inte¬ 
grati CMOS 

- Funzionamento a batterie NiCd ricari¬ 
cabili 

- Funzionamento full-duplex o half-du- 
plex 

- Velocità di trasmissione fino a 300 bit- 
sec. 

- Interfaccia RS 232C 

- Dimensioni 297x95x42 mm 

. - Peso 700 gr. 
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EPSON CX-21 

Accoppiatore acustico 


EPSON 


EPSON CORPORATION 

HEAD OFFICE 

80 Hirooka. Shiojiri-shi, Nagano. 
399-07 JAPAN 


da SEGI S.p.A. - Milano Via 











































applicando 

si trova anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando, 
acquistare una copia, cercare un numero arretrato... 


LOMBARDIA 


Almé(BG) 

Elcod Viale Italia 45/A 

Assago(Ml) 

Basic Computers Centro 
Commerciale Milano Fiori 

Bergamo 

Studio 15 srl Via Quarenghi 60 
Il mondo deli informatica 
Via Pitentino8 

Brescia 

Alfa computer Via Bassi 26 
Brescia Computers srl 
Via Malta 12 

Il Computer srl Via B. Croce 23 
L'Informatica srl 
Piazza Vescovado 1 
Personal Data di Tamiozzo D. 
Via Brozzoni 4 

Como 

D. S. I. srl Via Dottesio 8 

Como-Aitate 

Accaesse Informatica srl 
Via Acquanera 46 

Lecco (CO) 

Computers Lecco snc 
Via Nino Bixio 18/B 
Datamation Via Turati 10 

Lissone (MI) 

Computerlandia-Polli 
Via Martiri Libertà 103 

Milano 

A. G. Informatica srl 
Via G. Silva 49 

Communications Engineering 
Piazza Firenze 4 


Deltron srl Viale Gran Sasso 50 

Edelektron srl 

Corso Sempione 39 

Esprit Via Bergamini 13 

Happy System Piazza Diaz 6 

Ali Informatica Shop 

Via Lazzaretto 2 

Macan sas Via Broletto 39 

Microtech Sistemi Via Piave 7 

SH Computers srl 

Viale Montenero 33 

Softee Computer 

Viale E. Jenner23 

Monza (MI) 

ESI srl Via Cavallotti 11 
Nikom Electronics Via Asiago 7 

Pavia 

M.A.S.H. Computer Systems 
Strada Nuova 86 
Senna Gianfranco snc 
Via Calchi 5 

Trezzano sul naviglio (MI) 

Personal computer shop 
Via L.da Vinci 36 

Segrate(MI) 

Compusoft di R. Massaroli 
Via Milano 2 - Resid. Lago 
Varese 

IRPE srl Via Morazzone 8 

LAZIO 


Roma 

Computer Center srl 

Via Nizza 48/52 

Computerai srl 

Via Michele di Landò 41 

Computime srl 

Via Cola di Rienzo 28 

Easy Byte Via Giov. Villani 24 


E. D.P. Market 

Via E. Fermi 116/118 

E. M. EUR Micro Computer srl 

Viale C. Pavese 267 

5.1. G.E.E.l. srl 

Via Nomentana 265-273 

5.1. PR.EL.srl 

Via Pompeo Magno 94 

Roma EUR 

Bit Computers 
Via F. Domiziano 10 

Roma Mostacciano 

Bit Computers 

Via Giovanni Gastaldi 33 

Viterbo 

Alfa Computer 
Via Palmanova 12/C 

VENETO 


Bassano del Grappa (VI) 

A Tre snc di Arcangeli & C. 

Via Buonarroti 23 

Conegliano (TV) 

Computing Program di Branca 
ViaG. Piovesana 32 

Mestre (VE) 

Pacinottisas Via Torino 92 

Mirano (VE) 

Saving Elettronica di Miatto 
Via Gramsci 40 

Padova 

Capo villa & C. sas 
Galleria Scrovegni 5 
Computer Service srl 
Via Beethoven 3 
E. D.P. Sistemi srl 
Via Borromeo 16 


Treviso 

A5 Computers srl 
Borgo Cavour 37/A 

Venezia 
AZ Telemarket 
Cannaregio 5898 
Personal Computer di 
Mariconda Canareggio 

Verona 

ARMUsrl 

Via Teatro Filarmonico 3 
Esacomp srl Via Roveggia 43 
MOSSO sas Via Germania 21 

Vicenza 

Sevi sas Via S. Agostino 87 

Villafranca (VR) 

Studio 4 C.so V. Emanuele 70 

PIEMONTE 
VALLE D’AOSTA 

Aosta 

Informatique sas di Eddy Ottoz 
Av. Conseil des Commis 14 

Alba(CN) 

Centro computer Via Paruzza 2 

Biella (VC) 

Consul Computer srl 
Via delle Rose 2 
Informatica Biella sas 
Piazza S. Paolo 1/B 

Domodossola (NO) 

Nuova Elettronica 
Via Giovanni XXIII68 

Pi nero lo (TO) 

Elaborazione Dati Pinerolo 
Corso Piave 42 


76 














Tonno 

A.B. Computer sas 
Corso Grosseto 209 
Digitalsync snc 
Corso Moncalieri 303 
Dimensione Personal 
Via Bertola 22/e 
GE. NE. CA. srl Via Bertola 5 
Hobby Elettronica 
Via Saluzzo 11/F-G-H 
Omicron Computers snc 
C.so Duca degli Abruzzi 14 
Finto G.-Componenti elettr. 
Corso Principe Eugenio 15 bis 
Tecnosystem Computer Shop 
Via Beaumont 10 
Tekno Computers srl 
Via Madama Cristina 31/c 

TOSCANA 


Borgo a Buggiano (PT) 

CO DI snc ai G. Gatti-Chiti 
Via 24 Maggio 117/119 

Grosseto 

Computer’s Shop (C.I.S.I.D.) 
Via Papa Giovanni XXIII47/49 

Firenze 

Anfrel Informatica sas di F. 
Giagnoni & C. Via Masaccio 50 
Elettronica Cento Stelle srl 
Via Cento Stelle 5/B 
Paoletti Ferrerò 
Via il Prato 40/42 R 
Pascal Trip odo Elettronica 
Via B. della Gatta 26/28 
Soluzioni ED P srl 
Corso dei Tintori 39R 

Massa 

Euro Computer sas 
Piazza C. Bertagnini4 

Piombino (LI) 

Centro Ufficio sdf 
Via F.Ferrer 37/39 

Pisa 

Società Elettronica Tirrena 
Via Fucini 20 

Pistoia 

Inter Systems 

Via Pietro Mascagni 14 

Pistoia Frazione Margine 

CO-DI snc Via I Maggio 20/22 

Pontedera (PI) 

Data Portsrl 

Via Brigate Partigiane 27 

TerranuovaB.ni (AR) 

ICS srl Via Roma 10 

EMILIA ROMAGNA 

Bologna 

CEDA Minicomp srl 
Piazza Aldrovandi 2/2 
Computer Systems 
ViaErcolani 10/D 
EDP Sistemi BO srl 
Viale Pietramelara 61/F 
SERCOM Via B. da Carpi 9/B 


Cesena (FO) 

SHCsnc Corso Cavour 157 

Ferrara 

Soc. Termomeccanica 
Via Garibaldi 195 
Mazzacurati Claudio 
Viale Cavour 186/188 
Tecnomeccanica 
Via Garibaldi 195 

Fidenza (PR) 

EMA-Elettronica Industriale 
ViaBereninió 

Fiorenzuola d’Arda (PC) 

Centro Computer di Sacconi 
Corso Garibaldi 125/A 

ForTi 

A-Z Computer srl Via Cignani 7 
Kronos Via Oreste Regnoli 30 

Modena 

Masetti Elettronica srl 
Via Emilia Centro 211 

Reggio Emilia 

Computer Center srl 
Via D. Alighieri 4 
Esaprogetti Via F.Filzi 2 

Rimini 

Computer Line Via Coletti 61 

Scandiano (RE) 

Informatica System di Cheli 
Via Diaz 11/D 

Viserba di Rimini (FO) 

Computer Center 
Via Pallotta 25/A 

FRIULI VENEZIA 
GIULIA 


Pordenone 

Electronic Center snc 
Viale Libertà 79 

Turriaco (GO) 

Tecno Power Elettronica 
Via Marconi 19 

Udine 

BIT Computers 
Via Pozzuolo 107 
PS Elettronica sas Via 
Tavagnacco 89/91 C.C. 

LIGURIA 


Genova 

Computer Center 
Via San Vincenzo 129 r 
SA LS Informatica srl 
Via D'Annunzio 2/35 

Lavagna (GE) 

CR2 Informatica snc 
Corso Genova 100 

La Spezia 

Softline srl Via Piave 19 

Sanremo (IM) 

A.E.S. Assemb. Elettr. S.Remo 
Via Volta 24 


Savona 

Briano snc 

Corso Tardy e Benech 20 r 

Se stri Ponente - Genova 

All Computer sas 
Via C. Menotti 136 r 

TRENTINO 


Trento 

SI. GE. snc di Casagrande 
Via Cesare Abba 2 

SICILIA 


Catania 

Centro Informatica sdf 
Via Firenze 211 
Computer Shop 
Via E. Orlando 164 
SI. EL Informatica snc 
Via Etnea 289 

Messina 

Cubeta srl Via Cardines 12/14 

Milazzo (ME) 

Tectron Tecnologie Elet. srl 
Via dei Mille 

Palermo 

Informatica Commerciale spa 
Via Notarbartolo 26 

Ragusa 

Sosyco Corso V. Veneto 597 

Trapani 

Guatano Eugenio 
Via Virgilio 11 

MARCHE 


Jesi (AN) 

E. M.J. sas Via F. Conti 4 
New Computer srl 
Via N.Sauro 17/A 

Torrette di Ancona (AN) 
Siste da srl Via Velino 5 

CAMPANIA 


Barano d’Ischia (NA) 
Matterà Antonio Via Roma 61 

Benevento 

Masone Informatica 
Viale dei Rettori 57 

Napoli 

Computer Systems srl 
Via G. Santacroce 40 
Golden Computer srl 
Via Michelangelo 7 
I. C. International Computer 
Viale A. Gramsci, 176 
La Barbera Carlo sas 
Via Tgledo 320 

Salerno 

Computer System 
Via E. Bottiglieri 19 
SEDA srl 

Via Parmenide c/o Iannone 


CALABRIA 


Catanzaro 

Visicom srl 

Via Minniti Ippolito 10 
Cosenza 

Micro Systems sdf 
Via Pane Bianco 26 

Gioia Tauro (RC) 

Tecnocomp snc di Cutellé F.eR. 
Via Nazionale SS 111/117 

Spezzano Albanese (CS) 
Iannibelli Via Stragolia 48 

PUGLIA 


Bari 

L. & L. Computers srl 

Largo 2 Giugno 4 

desse spa Via Re David 176/D 

Brindisi 

SICsrl 

Viale S.Giovanni Bosco 109 

Foggia 

GE CO, srl 

Via Valentini V. Franco 1 

Leverano (LE) 

Liberano Elettronica 
ViaC.Salentina 19A/21 

Manduria(TA) 

De Pasquale Ottavio 
Via per Oria 80 

Nardo (LE) 

SalcosrlW iaXX Settembre 122 

BASILICATA 


Matera 

Lucana Sistemi srl 
Via Don Minzoni 4 

ABRUZZO 


Avezzano (AQ) 

Aspron Via America 10/12 

Chieti 

Computer Pointsas 
Viale Unità d’Italia 5 

L'Aquila 

S.E.A .D. srl 
ViaG. di Vincenzo 

Lanciano (Ctì) 

Electronic Microsystems 
Via della Pace 3 

MOLISE 


Campobasso 

Informatica Molisana 
Via 24 Maggio 185/189 

UMBRIA 


Cerbara di città (PG) 

Computer Post 

Via Madonna del Vento 
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Programmi 
per Mac 

Ho da poco tempo acqui¬ 
stato un APPLE MACIN¬ 
TOSH e con enorme soddi¬ 
sfazione lo uso con i pro¬ 
grammi di corredo, più un 
eccellente SARGON III. 
Ora dopo un po’ di pratica, 
mi trovo con la necessità di 
allargare il campo di azione, 
comprensibilmente deside¬ 
rerei corredare il mio gioiel¬ 
lo con alcuni programmi a 
basso costo. 

A basso costo dicevo, per¬ 
ché come tutti saprete un 
pacchetto per MAC costa 
un occhio. Così ci si doman¬ 
da: tutte le riviste oggi in 
commercio propongono 
programmi da digitare per¬ 
sonalmente, perché dopo al¬ 
cuni mesi dall’uscita del MI¬ 
CROSOFT BASIC che of¬ 
fre ampie possibilità di pro¬ 
grammazioni varie, la Vo¬ 
stra Spettabile Rivista non 
ha pensato di dedicare un 
capitolo a questo proposito? 

Adalberto Berselli 
Bologna 

Abbiamo pensato a questa 
possibilità, stiamo lavoran¬ 
do alacremente e presto tutti i 
possessori di Macintosh ve¬ 
dranno i risultati dei nostri 
sforzi. 


Animazione di 
una rotazione 
tridimensionale 

Ho provato a digitare "A- 
nimazione di una rotazione 
tridimensionale" pubblicato 
sul n.12—13 di Gennaio— 
Febbraio ’85. Una volta sal¬ 
vato il programma, l’ho fat¬ 
to girare. L’Apple ha scritto 
la prima videata, ma quando 
compare la scritta "Distanza 
dall’origine : 400 — 50000 — 
Default 1000" se provo ad 
inserire un dato ed a preme¬ 
re Return, scompare la scrit¬ 
ta dallo schermo con un 


"Bip!" e non ricompare più 
nulla. 

Con CTRL-RESET mi 
compare ?BED SUB¬ 
SCRIPT ERROR IN 2030. 
Premetto che la riga 2030 è 
stata copiata esattamente 
come stampata sulla rivista e 
non riesco a capire se l’erro¬ 
re è mio o nel listato. 

Gianluca Rosso 
Torino 

Normalmente tutti gli er¬ 
rori segnalati dal computer, 
tranne quelli di sintassi, non 
sono quasi mai nella riga se¬ 
gnalata ma vanno ricercati in 


altre righe soprattutto in 
quelle con richiesta di "IN¬ 
PUT' oppure nelle righe con 
il confronto "IF....THEN". 
Ricontrolli attentamente il li¬ 
stato che, le possiamo garan¬ 
tire, è esatto, e troverà Ver¬ 
rore. 


Disk Map 

Sono un vostro abbonato, 
da poco possessore di un 
APPLE//c. Ho battuto, con¬ 
trollato e salvato su disco il 
programma DISK MAP da 


Copiate, non comprate? 

Con l’occasione vi faccio sapere che non rinnovo 
l’abbonamento poiché non ho gradito la vostra comu¬ 
nicazione "Comprate non copiate" pubblicata nel n.9 
a pag. 80. 

Personalmente anch’io sono contro il commercio 
illegale di software copiato, infatti non vendo né com¬ 
pro programmi nati dal lavoro altrui. Se mi capita 
accetto però di ricevere programmi rifondendo chi 
me li fornisce delle spese vive sostenute per i dischet¬ 
ti, le fotocopie e la spedizione. 

Chiarisco che sono solo un hobbista del computer 
(come penso la maggior parte dei vostri lettori) e che i 
programmi non mi servono per produrre denaro. An¬ 
zi, poiché insegno in una scuola superiore mi sono 
accorto che costituiscono una formidabile fonte di 
pubblicità sia per l'hardware che per il software in 
commercio. 

Se voglio studiare un programma, per es. dBaselI, 
pensate - voi che lo sapete - che dovrei sentirmi in 
colpa se me lo procuro come chiarito prima, senza 
spendere il milione e 200.000 lire + IVA del suo costo 
che costituisce un mese e mezzo del mio lavoro? 

Il programma dBaselI -per chi non lo sapesse- ha 
venduto ad oggi nel mondo circa 300.000 copie per un 
ricavo di circa 360 MILIARDI. 

Il programma è stato scritto da una sola persona. 
Quanto avrà lavorato? poniamo 10 anni? Va bene se 
lo paghiamo un miliardo all'anno? fanno 10 miliardi. 
Quanto avrà speso la casa produttrice per pubblicità e 
distribuzione? 50 miliardi? fanno in tutto 60 miliardi. 
Restano 300 MILIARDI. 

Voi che lo sapete, è questo un commercio "legale"? 
Certamente lo è poiché obbedisce alle leggi di merca¬ 
to. Ma anche la copiatura del software è una "legge di 
mercato" finché un programma che ha già fruttato 300 
miliardi di guadagno e che può essere venduto per 
100.000 lire viene venduto per un milione e mezzo di 
lire. 

Desidero leggere il parere dei lettori nei numeri 
successivi. 

A.Emilio Guarisco 
Ribera(AG) 


Applicando N.10. Invece di 
eseguirlo il computer scrive i 
parametri in linguaggio 
macchina. Penso, ma sono 
ancora assai inesperto, che 
occorrano modifiche al lista¬ 
to da voi pubblicato. 

In questo caso suggerisco: 
1- di scrivere se i program¬ 
mi, che via via presentate, 
girano sul Ile. 2- di apporta¬ 
re (come del resto è stato 
fatto su Applicando N.ll 
per "Tastierino") le modifi¬ 
che necessarie. 

Aldo Mascelloni 
Grosseto 

Sul N.12—13 a pag. 95 ab¬ 
biamo pubblicato la parte di 
listato mancante del pro¬ 
gramma DISK MAP scu¬ 
sandoci con i lettori. 

Per il primo suggerimento 
abbiamo già provveduto dal 
N.12—13 ad indicare, all’ini¬ 
zio degli articoli riguardanti i 
programmi, con quale siste¬ 
ma operativo possono fun¬ 
zionare e su quale tipo di 
APPLE. 

Per il secondo, lo teniamo 
presente e vedremo di accon¬ 
tentare tutti i lettori, ogni vol¬ 
ta che sia possibile. 


Espressioni 

Sono un possessore di un 
APPLE //e e sono stato feli¬ 
cissimo di aver trovato un 
programma su Applicando 
N.ll che mi aiutasse a risol¬ 
vere delle espressioni. 

Però dopo aver copiato e 
salvato su dischetto il sud¬ 
detto programma, mi sono 
accorto che, anche delle ba¬ 
nalissime espressioni, non 
riusciva a risolvermele, dan¬ 
domi dei risultati sbagliati. 
Questo accadeva per tutte e 
quattro le operazioni, tran¬ 
ne che per l’elevamento a 
potenza. Ho provato a ri¬ 
controllare tutto il program¬ 
ma, ma invano. 

Claudio Cevolani 
Pieve di Cento(BO) 

Questo programma è stato 
da noi provato e riprovato in 
tutte le possibili applicazioni 


78 





Avvertenza 

Preghiamo i lettori che 
ci sottopongono dei 
quesiti di indicare 
sempre il tipo di 
computer che hanno, 
per una più agevole 
soluzione dei quesiti 
stessi. 

e non ha dato problemi di 
sorta. 

L'unica possibilità è che, 
purtroppo, Lei abbia com¬ 
messo un errore nella copia¬ 
tura del programma che le è 
sfuggito anche ad un attento 
controllo. 

Il listato è esatto perché, 
come già spiegato in altre ri¬ 
sposte, è la copia fotografica 
della stampata del listato fat¬ 
ta dal programma funzio¬ 
nante su disco. 


Investor 

Nel n.5 del bimestre gen¬ 
naio — febbraio 1984 di Ap¬ 
plicando è stato pubblicato 
il programma "Investor" che 
ho copiato con il mio com¬ 
puter. Purtroppo però, seb¬ 
bene abbia svolto numerosi 
e vani tentativi, non sono 
riuscito a farlo girare inte¬ 
gralmente. 

Infatti, chiesta l’opzione 
"Grafici" lo schermo mi evi¬ 
denzia alla linea "1780", un 
errore di "division by zero", 
e tutti i tentativi rivolti ad 
individuarne la causa, si so¬ 
no rivelati vani ed improdut¬ 
tivi. 

Francesco De Vito 
Ancona 

"Division by zero" può es¬ 
sere dovuto alla mancanza o 
all’errato inserimento di un 
dato relativo a quella opera¬ 
zione. Il listato pubblicato è 
giusto perché è la copia foto¬ 
grafica del listato del pro¬ 
gramma funzionante su 
disco. 

Rilegga attentamente l’ar¬ 
ticolo e controlli il listato e 
soprattutto gli "inpuf. 


• • • IL MERCATINO DELLE MELE ééé 


• Cerco a prezzo conve¬ 
niente tavoletta grafica per 
Apple II completa di soft¬ 
ware e manuali. Telefona¬ 
re a Salvatore Pinelli allo 
02/4399713. 

• Vendo Apple II con due 
drive, stampante, monitor 
III, scheda 2-80, language 
card e 400 programmi. 
Marco Verdesca, Res. Ar¬ 
chi Milano 2, 20090 Segra- 
te (MI). Tel. 02/2138347. 

• APPLICANDO numeri 
1,2,3, 4, 5 e 6 cerco in bloc¬ 
co a lire 15.000 o cambio 
con uno dei seguenti libri di 
Franco Muzzio: Il debug 
nei PC, Microsoft Basic. 
Giovanni Pietrolonardo, 
Via della Massimilla 25, 
00166 Roma. 

• Apple II Plus 48K origi¬ 
nale USA vendo a L. 
800.000. Vendo anche se¬ 
paratamente: - Scheda lan¬ 
guage card originale Apple 
con espansione memoria 
da 48K a 64K a lire 120.000 
- Scheda per presentazione 
su video 80 colonne origi¬ 
nale Videx completa di 
softswitch per commuta¬ 
zione 80-40 colonne a lire 
150.000. Documentazione 
completa. Alberto Sona, 
Via Papa Giovanni 6, 
20090 Segrate (MI). Tel. 
02/2132810 (ore pasti). 

• Vendo programma Ap- 
pleworks in edizione ingle¬ 
se, dischi e manuali origi¬ 
nali, per lire 300.000. Spe¬ 
dizione contrassegno. Te¬ 
lefonare dalle ore 9 alle 10 
al n. 099/312353. 



• Vendo per Apple II Su- 
pertoto Ì.O., superpro- 
gramma Totocalcio inedi¬ 
to, 3 diverse opzioni di se¬ 
lezioni incrociate (n. segni 
1X2; consecutivi; corr. er¬ 
rori), con output n. colon¬ 
ne utii, sviluppo su moni¬ 
tor o stampante a lire 
60.000 con manuale. Ro¬ 
berto Rossi, Via Lario 26, 
20159 Milano. Tel. 
02/6070236 (ore serali). 

• Vendo due disk drive per 
Apple II, Apple II, Apple 
He, nuovi, ancora imballa¬ 
ti, slim line, a lire 350.000 
l’uno, causa eccesso di re¬ 
gali. Felice Zaccanti, Via 
P. Capponi 3, 20145 Mila¬ 
no. Tel 02/496813 ore 
pasti. 

• Causa cambio sistema 
vendo per Apple II dieci di¬ 
schetti doppia faccia con 
oltre 50 programmi di ogni 
genere (giochi e utility) a 
L. 100.000. Scrivere o tele¬ 
fonare a Bruno Rota, Via 
Passo di Brizio 6, 20148 
Milano. Tel. 02/4082437. 

• Vendo Apple Logo con 
relativi manuali in quanto 
me ne è stato regalato un 
altro uguale. Telefonare al¬ 
la sera allo 0523/387250 
chiedendo di Ruggero Ber- 
tolotti. 

• Vendo interfaccia RTTY 
per Apple. Composta da 
scheda inseribile in uno 
slot libero e terminale ester¬ 
no con led di trasmissione e 
ricezione e 4 prese per col- 
legamento a demodulatore 
in TX e RX, tasto CW e 
PTT. Permette collega- 
menti in ASCII e BAU¬ 
DOT tra radioamatori e ri¬ 
cezione di bollettini stampa 
e meteo. Giuseppe Mili- 
sich, Viale Caldara 13/3, 
20122 Milano. Tel. 
02/5462891. 

• Per errato acquisto ven¬ 
do Macintosh, Image Wri- 
ter,' secondo drive, Conta¬ 
bilità generale, Multiplan, 
Chart, Mac Draw, Mac 
Project, PfsFile/Report, 
Filevision e altri program¬ 
mi. Il tutto a lire 7.500.000 


non trattabili. Tutto il ma¬ 
teriale è ancora in garan¬ 
zia. Vendo anche separata- 
mente. Carmelo Carrozzo, 
Via Genova 7, 10095 Gru- 
glias co (TO ) . Tel. 
011/713766. 

• Acquisto o scambio soft¬ 
ware musicale per Alpha- 
syntauri e Soundchaesar. 
Scambio con altro software 
musicale o anche con nuo¬ 
vissimi programmi vari per 
Apple. Cerco anche pro¬ 
grammi musicali per utiliz¬ 
zo MIDI della Passport 
Design e della Ritton Mu¬ 
sic. Domenico De Simone, 
Via Vado di Sole 6, 65100 
Pescara Colli. Telefono 
085/4151352. 

• Vendo stampante silenty- 
pe completa di interfaccia, 
tutto originale Apple. For¬ 
nita di imballo, manuale e 
rotoli di ricambio a L. 
350.000. Vendo monitor 
fosfori verdi 12 a L. 
100.000. Roberto Moretti, 
St. Torino 73, 10024 Mon- 
calieri (TO). Telefono 
011/699362. 

• Vendo Apple II64K due 
drive e monitor con softwa¬ 
re originale di ogni tipo e 
manuali. Telefonare a 
Claudio allo 02/5397867. 

• Causa cambio sistema 
vendo per Apple II dieci di¬ 
schetti doppia faccia con 
programmi di giochi e di 
utilità (Appleworks, Pa¬ 
scal, Visidex, Flight sim. 
ecc...) a lire 100.000 telef o- 
nare Marco Pozzi via Ce- 
nisio 16, 20154 Milano. 
Tel. 314151. 
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applicando 



Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 
Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sottoindicati: per ottenerli, è sufficiente inviarci il tagliando debitamente 
compilato. 


Applicando 1 

‘AP1/I02 

Profitti. In tempo reale l’analisi del break-even point, punto di pareg¬ 
gio, di una qualsiasi azienda. Calendario perpetuo. Dal 1582 in poi 
tutto quello che si può sapere sui giorni passati e futuri. I tronchi del 
tesoro. Una spericolata caccia ai tesoro a nuoto, fra le insidie di 
tronchi galleggianti. Lire 30.000 (abbonati 25.000). 

*AP1/N03 

Eliminatore di Dos. Uno strumento per aumentare del 10% la capaci¬ 
tà di un normale floppy disk. Orologio. Per trasformare l’Apple // in un 
orologio con rintocchi, allarme e lancetta dei secondi. Pronti puntare 
fuoco! Guardiano di un castello abbandonato, hai 25 colpi da sparare 
contro gli intrusi. Lire 30.000 (abbonati 25.000). 

Applicando 2 

*AP2/IN04 

Costi chilometrici auto. Un programma per calcolare e confrontare i 
costi di qualunque auto. Richiamafigure. Posizionare, ingrandire, 
ruotare, cambiar colore, aggiungere figure a quelle di una tavola. 
Laser nello spazio. Battaglia a colpi di laser contro asteroidi e alieni 
per difendere la torretta spaziale. Lire 30.000 (abbonati 25.000). 

Applicando 3 

*AP3/IN05 

Sistema base. Un data base modulare con tutte le caratteristiche 
essenziali per mettere ordine nei propri archivi. Etichette. Etichette 
spiritose e bizzarre, di lavoro o di ogni genere, stampate facilmente e 
nel numero desiderato. Contratti. Con il WPL, il linguaggio di pro¬ 
grammazione dell’Apple Writer, bastano cinque minuti per un docu¬ 
mento di più pagine personalizzato. Gran catalogo. Una routine per 
avere il catalogo del dischetto su due colonne, 42 file per volta, e 
richiamarli con un solo tasto. Lire 30.000 (abbonati 25.000). 
*AP3/A06 

Equo canone (occorre Visicalc). In Visicalc un modello che permette, 
a inquilini o proprietari, l’esatto calcolo dell’equo canone. Lire 25.000 
(abbonati 20.000). 

Applicando 4 

*AP4/N07 

Lettura sprint (versione italiana e versione con frasi in inglese). Un 
reading improver per leggere di più a parità di tempo. Rompiquindici. 
Il piccolo rompicapo delle quindici pedine da ordinare nei sedici spazi a 
disposizione. Tastierino fantasma, una routine per avere a disposi¬ 
zione un tastierino numerico anche sull’Apple //. Routine di input. 
Due subroutine, una per i dati numerici l’altra per gli alfanumerici, per il 
controllo dell’input. Lire 30.000 (abbonati 25.000). 

‘AP4/A09 

Organo, violino, pianoforte (dischetto Pascal, occorre language 
card o Apple Ile o //c). Ecco come si riesce a simulare i tre strumenti 
attivando l'altoparlante dell’Apple da programma. Lire 30.000 (abbo¬ 
nati 25.000). 

Applicando 5 

*AP5/N08 

Investor. In tempo reale il quadro di come vanno i propri investimenti 
in Borsa. Con 5 prospetti riepilogativi e 52 periodi di quotazione, 
Investor è uno dei programmi più completi in questo settore e in 
assoluto il più economico. Lire 70.000 (abbonati 60.000). 


"AP5/N09 

Agenda personale. Per ricordare ora per ora gli appuntamenti di un 
anno intero memorizzando fino a 15 appunti ogni giorno. Duello 
d’artiglieria. Vince chi sa calcolare meglio la velocità del vento, la 
gittata e l’elevazione della canna. Mele e freccette. Versione compu¬ 
terizzata del popolare gioco delle freccette che nulla toglie al gusto del 
far centro. Lire 30.000 (abbonati 25.000). 

Applicando 6 

*AP6/N10 

Obbligazioni/Bond Manager. Per avere un quadro completo e con¬ 
creto dei rendimenti dei titoli a reddito fisso. PucMan/Nibbler. Versio¬ 
ne in alta risoluzione per Apple del famoso videogame a gettone. Line 
finder. Questa utility permette di localizzare facilmente i segmenti di 
un programma. Lire 30.000 (abbonati 25.000). 

‘AP6/N11 

Stress, in Pascal (occorre language card o Apple Ile o Ile). Per 
giocare, ma soprattutto per inventare giochi, il programma si pone in 
alternativa agli usuali videogame. Lire 55.000 (abbonati 45.000). 

Applicando 7 

*AP7/N12 

Apple pittore. Si possono realizzare sullo schermo capolavori di 
pittura, ottenendo effetti speciali di grande efficacia. Ottovolante. Un 
tutoria! per insegnare ai bambini a riconoscere i numeri che rimbalza¬ 
no sullo schermo. Diskblock. Una routine che permette di evitare che 
qualche curioso possa avere libero accesso in programmi riservati. 
Archivio per Apple. Per avere un back-up dei programmi più impor¬ 
tanti da dischetto a cassetta o viceversa. Discoteca. Una banca dati 
che tiene sotto controllo la collezione di longplaying e di cassette. 
Aiuto. Alla fine della battitura di un programma, Aiuto vi dirà quanti 
errori ci sono e a quali linee.Lire 30.000 (abbonati 25.000). 

Applicando 8 

*AP8/N13 

Cambiacomandi/Messaggi. Un programma che insegna come per¬ 
sonalizzare i messaggi propri del Dos dell’Apple. Le Mans. Un gran 
premio di formula uno da giocare in due o da soli contro il computer. 
Appleorgano. Una combinazione di linguaggio macchina e di Apple¬ 
soft che trasforma l’Apple in un melodioso organo. Lire 30.000 (abbo¬ 
nati 25.000). 

*AP8/T 14 

Momento di una forza/Colpo all’asta. La dimostrazione didattica del 
ribaltamento di un corpo solido appoggiato a un piano quando viene 
applicata una forza orizzontale che supera il momento in senso oppo¬ 
sto dovuto al peso. Hard copy pagine in alta risoluzione. Se la 
stampante risponde a determinati criteri di compatibilità, con questo 
programma si possono far miracoli. Lire 30.000 (abbonati 25.000). 


Investor - ÀP5/N08 

Per seguire le azioni in Borsa, con 
grafici, media mobile a 15 e 52 
settimane, medie volume e prezzo 
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Applicando 9 

*AP9/N15 

Fuoco fatuo. Un appassionante adventure game con un percorso 
intricatissimo, mille trabocchetti, un troll e una principessa. Apple 
artista. Per destreggiarsi nella grafica ad alta risoluzione usando lo 
schermo come tavolozza e la tastiera come pennello. Data hello. Una 
semplice routine che permette di disporre di una clock card inizializ- 
zando i dischetti con giorno, mese e anno. Lire 25.000 (abbonati 
20 . 000 ). 

*AP9/T 16 

Sistema di forze parallele. Fissandone l’intensità e la posizione 
questo programma permette di visualizzare il centro di un sistema di 
forze sotto forma numerica e grafica. Traslazione e rotazione di una 
figura piana. Come far ruotare, traslare, rimpicciolire, ingrandire sul 
video una figura piana. Lire 30.000 (abbonati 25.000). 

Applicando 10 
*AP10/N14 

Ripristino. Come ripristinare programmi persi per un’accidentale 
istruzione di New o di Fp. Disk Map. Un detective del Dos per scoprire 
dove e come vengono immagazzinati i dati analizzando la mappa dei 
bit occupati. Autonumber. Una routine per autonumerare automatica- 
mente i programmi e allineare le linee con un ritorno carrello in input. 
Lire 30.000 (abbonati 25.000). 

*AP10/T17 

Rette nel piano cartesiano. Come individuare in cinque modi diversi 
una coppia di rette in un piano cartesiano e avere visualizzate le 
equazioni relative ai valori assegnati. Statistica. Come analizzare la 
correlazione fra due fenomeni o due caratteri e l’indice o coefficiente di 
Bravais che ne effettua la misura. Lire 30.000 (abbonati 25.000). 
Applicando 11 
*AP11/N18 

Apple edicola. Una banca dati per avere sotto controllo un articolo, il 
suo numero di pagina, la rivista su cui è stato pubblicato. Disk Zap. Il 
programma indispensabile per il debugging di un dischetto che ne 
risolve la maggior parte dei problemi. Messaggi personali. Quando la 
persona non c’è, per lasciare un messaggio basta impostarlo sulla 
tastiera. L’Apple farà il resto. Comparatore di programmi in basic. 
Una routine per risolvere dubbi sulle diverse versioni di uno stesso 
programma. Trappola per pochi. Un cacciatore contro tre animali 
feroci. Vince chi riesce a intrappolare senza essere intrappolato. Lire 
30.000 (abbonati 25.000). 

*AP11/T 19 

Espressioni. Come risolvere un piccolo dramma familiare con l’aiuto 
di un elaboratore personale. Lire 25.000 (abbonati 20.000). 

Applicando 12-13 

AP12/N20 

Bridge. Un programma in altissima risoluzione grafica che permette di 
imparare il bridge o di giocarlo contro il computer. Microcalc. Un foglio 
elettronico di calcolo, spreadsheet, che mette a disposizione 20 righe 
per 20 colonne per un totale di 400 caselle da riempire come si vuole. 
Applesoft Line Editor. Una potente utility che permette l’editing dei 
programmi in Applesoft e aggiunge all’Apple un più ampio controllo del 
cursore. Lire 30.000 (abbonati 25.000). 

AP12/A21 

Budget (occorre Appleworks). Un prospetto che con l’inserimento di 
dati mensili e di medie preventive calcola automaticamente le medie 
consuntive e i relativi saldi mensili e annui. Lire 15.000. 


Bridge - AP12/N20 

Il più economico dei programmi in 
commercio, per imparare e per 
giocare. Splendido per la grafica 


AP12/A22 

Budget (occorre Visicalc). Un prospetto che con l’inserimento di dati 
mensili e di medie preventive calcola automaticamente le medie con¬ 
suntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A23 

Cinque modelli Spreadsheet, tre modelli data base, due modelli 
Word Processor. Versione per Appleworks. Due dischetti. Lire 
80.000 (abbonati 70.000). 

AP12/A24 

Cinque modelli Spreadsheet. Versione per VisiCalc. Lire 40.000 
(abbonati 35.000). 

AP12/T25 

Animazione di una rotazione tridimensionale. Un esempio di come 
una rotazione tridimensionale permette di rappresentare gli oggetti 
proprio come li vediamo. Trasformazione da File a Data. Una utility 
per risolvere il problema di aggiungere a un programma preesistente 
delle istruzioni DATA ricavati da un altro file. Lire 25.000 (abbonati 
15.000). 

Applicando 14 

AP14/N26 

Golf. Un programma in altissima risoluzione grafica che permette di 
disegnare il proprio percorso di golf per poi giocarci a piacimento con 
gli amici. Autopiù. Con l’aiuto di questo programma non dimentichere¬ 
te più gli appuntamenti fissi dedicati alla manutenzione della vostra 
automobile. Lire 20.000. 

*AP14/N27 

Applebaby. Tre giochi didattici: il primo per imparare a contare in età 
prescolastica; il secondo per ripassare le tabelline; il terzo per eserci¬ 
tarsi nell’ortografia. Lire 20.000. 

*AP14/A28 

Rimborso spese, (occorre Appleworks). Un prospetto che vi permet¬ 
te di preparare le vostre note spese automaticamente in cinque minuti. 
Lire 15.000. 

*AP14/A29 

Rimborso spese, (occorre VisiCalc). Un prospetto che vi permette di 
preparare le vostre note spese automaticamente in cinque minuti. Lire 
15.000. 

*AP14/T30 

Frutteti. Un aiuto a risolvere uno dei più classici problemi di estimo.ln- 
stant Poster Voi scrivete con la tastiera del vostro Apple la frase che 
volete, e subito dalla stampante esce un poster formato gigante. Lire 
15.000. 


*1 dischetti contrassegnati con asterisco contengono anche il pro¬ 
gramma Tombola, omaggio natalizio di Applicando e di Compushop, 
via Nomentana 265-273, Roma. 
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Compilare e spedire il tagliando qui sotto a Applicando , Editronica Srl., Corso Monforte 39, 20122 Milano 

Cognome . Nome. 

Via. Cap. 

Città. Prov. 

Scelgo la seguente formula di pagamento: • 

□ allego assegno di L.non trasferibile intestato a Editronica srl. 


Vogliate inviarmi i seguenti dischetti: 
n. 
n. 
n. 
n. 
n. 
n. 


n. 



A 

iPl l/l 

1 1 

1 1 


A 

iPl l/l 

! 1 1 

1 1 


A 

iPl l/l 

1 1 1 

1 1 


A 

|P| l/l 

1 1 1 

1 1 


1 A| 

IPI l/l 

1 1 1 

1 1 


1 A 

|P| l/l 

1 1 

1 1 


| A 

iPl 1/1 

LU 



Sono abbonato: sì □ no □ 


□ allego ricevuta versamento di L. sul cc/p n. 19740208 intestato a 

Editronica srl. - Corso Monforte, 39 - 20122 Milano 

□ pago fin d’ora l'importo di L. con la mia carta 

di credito Bank Americard N. 

scadenza.autorizzando la Banca 

d’America e d’Italia ad addebitarne l’importo sul mio conto BankAmericard. 


Data. 


Firma 



































.ag^help 


Lettura indirizzi di memoria 

Ecco il contenuto di alcune locazioni di memoria e 
come possono essere lette per un controllo sui pro¬ 
grammi scritti in BASIC. Precisiamo che il valore delle 
locazioni è indicato in decimale. 

104-103 contengono l’indirizzo di inizio del pro¬ 
gramma in BASIC. 

176-175 contengono Tindirizzo di fine del program¬ 
ma in BASIC. 

106-105 contengono l’indirizzo di partenza dello 
spazio per le variabili semplici. 

108-107 contengono l’indirizzo di partenza dello 
spazio per le matrici. 

110-109 contengono l’indirizzo di fine dello spazio 
per le matrici. 

112-111 contengono l’indirizzo di partenza dello 
spazio per le variabili stringa. 

116-115 contengono l’indirizzo di fine dello spazio 
per le variabili stringa. 

230 contiene Tindirizzo della pagina in alta risoluzio¬ 
ne che stiamo usando (decimale 32 per la pagina 1, 64 
per la pagina 2). 

233-232 contengono i puntatori di inizio delle tavole 
delle figure. 

Gli indirizzi, in esadecimale, sono formati da quattro 
cifre, ovvero due BYTE, quello di sinistra detto byte 
alto e quello di destra detto byte basso. Ad esempio 
l’indirizzo di partenza del programma in Basic, normal¬ 
mente è (in esadecimale) 0801: 08 è il byte alto e 01 è il 
byte basso. Occorre ricordarsi che gli indirizzi di me¬ 
moria sono sempre memorizzati partendo dal byte bas¬ 
so. Ecco perché abbiamo indicato prima la locazione 
più alta e poi la più bassa. 

Ora per conoscere un qualsiasi indirizzo indicato 
sopra è sufficiente battere la seguente linea anche nel 
modo immediato ovvero senza numero di linea: 
PRINT PEEK(loc.mem.più alta)*256 + PEEK(loc- 
.mem.più bassa). Il risultato è un numero in decimale 
che indicherà l’indirizzo cercato. 


Screen switches 

Gii screen switches o interruttori dello schermo si 
utilizzano per passare velocemente dal testo alla grafica 
e viceversa usando dei semplici POKE. Certo sarebbe 
più facile utilizzare GR, HGR oppure HGR2; essi però 
hanno un difetto: quando presentano la pagina grafica 
relativa, contemporaneamente la cancellano. E se va 
bene all’inizio quando non abbiamo ancora disegnato 
nulla, in un secondo tempo dovremmo ridisegnare la 
figura. Sono molto utili per simulare il movimento di 
oggetti. Gli interruttori sono quattro: 


1 -16303 da grafica a testo 
-16304 da testo a grafica 

2 -16299 mostra la pag. 1 
-16300 mostra la pag. 2 

3 -16301 grafica e quattro righe di testo 
-16302 grafica a pieno schermo 

4 -16297 grafica ad alta risoluzione (HGR) 
-16298 grafica a bassa risoluzione (GR) 


Per usarli è sufficiente battere "POKE indirizzo,0". 
Ad esempio, se vi trovate in HGR con le quattro righe 
di testo e volete eliminarle, dovete battere "POK- 
E-16302,0" e il gioco è fatto. 


Come individuare gli errori 

Molti programmi contengono un comando un po’ 
particolare "ONERR GOTO(indirizzo)"; la sua inter¬ 
pretazione è "in presenza di un errore vai a....". Con 
questo comando viene attivato un meccanismo di rile¬ 
vazione di un eventuale errore che può avvenire duran¬ 
te l’esecuzione di un programma e per alcuni di essi la 
subroutine inserita all’indirizzo indicato contiene an¬ 
che la risoluzione automatica dell’errore. Vengono in¬ 
teressate alcune speciali locazioni di memoria. La loca¬ 
zione in valore decimale 222 contiene il numero dell’er¬ 
rore e viene letta con PRINT PEEK(222). Le locazioni 
118 e 119 contengono il valore relativo al numero di 
linea alla quale è avvenuto l'errore che viene evidenzia¬ 
to con PRINT PEEK(118)+PEEK(119)*256. L’ultima 
è la locazione 216 che viene azzerata con POKE 216,0 
dopo il rilevamento di un errore per ripristinare il mec¬ 
canismo stesso di rilevamento dell’errore dell’Apple- 
soft. 

Riportiamo una tabella degli errori che ricorrono 
maggiormente. 


- 0 NEXT without FOR (alla fine di un loop è stata 
messa la parola NEXT per incrementare il loop dimen¬ 
ticando di mettere il FOR all’inizio del loop stesso). 

- 4 WRITE PROTECTED (il disco è protetto per la 
scrittura). 

- 5 END OF DATA (fine dei dati di lettura di un file). 

- 6 FILE NOT FOUND (il file che si sta cercando sul 
disco non esiste). 

- 8 I/O ERROR (errore di ingresso/uscita dati). 

- 9 DISK FULL (disco pieno). 

- 10 FILE LOCKED (il file sul quale si vuole scrivere è 
bloccato). 

- 13 FILE TYPE MISMATCH (si è battuto un coman¬ 
do non adatto al tipo di file chiamato. Ad esempio, si è 
battuto LO AD per un file in binario). 

- 14 PROGRAM TOO LARGE (programma troppo 
lungo per la memoria a disposizione). 

- 16 SYNTAX ERROR (errore di sintassi). 

- 22 RETURN without GOSUB (il programma incon¬ 
tra un RETURN senza prima aver trovato il GOSUB 
relativo). 

- 42 OUT OF DATA (un comando READ viene in¬ 
contrato dopo che tutti i DATA sono stati regolarmen¬ 
te letti con un READ oppure i DATA che deve leggere 
il comando READ sono inferiori al numero di DATA 
che deve effettivamente leggere). 

- 90 UNDEFINED STATEMENT (il numero di linea 
di un indirizzamento GOSUB o GOTO non esiste). 

- 107 BAD SUBSCRIPT (si vuole assegnare ad una 
matrice un numero di valori superiore al suo dimensio¬ 
namento). 

- 120 REDIMENSIONED ARRAY (si è tentato di 
ridimensionare delle matrici già dimensionate in prece¬ 
denza). 

- 133 DIVISION BY ZERO (il programma si trova 
costretto a dividere per zero cosa che è matematica- 
mente indefinita. Ciò può accadere quando in una ope¬ 
razione matematica viene usata una variabile prima che 
le sia stato assegnato un valore). 

- 163 TYPE MISMATCH (si è fatto un assegnamento 
di tipo sbagliato ad una variabile. 

- 176 STRING TOO LONG (si è fatto un concatena¬ 
mento di stringhe i cui caratteri totali sono più di 255). 
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IN DIRETTA 
DAL VOSTRO 
COMPUTER. 



Sistema Polaroid Palette 
per diapositive immediate 35 mm. 


Il sistema Polaroid Palette è stato con¬ 
cepito come unità periferica per i più diffu¬ 
si personal computers. 

Istogrammi, grafici, ed altri tipi di ela¬ 
borati possono essere facilmente riprodot¬ 
ti nelle tonalità più sature e brillanti, gra¬ 
zie ad una scala cromatica di ben 72 colori. 

Il tutto in tempo reale, operando sia 
con schermo monocromo che a colori. 

Il sistema Polaroid Palette utilizza, in¬ 
fatti, il segnale di uscita del computer stes¬ 


so e consente elaborazioni fotografiche a 
colori sia su positivo (hard copy) che in 
diapositiva Polaroid 35 mm. 

Il sistema minimizza quindi la retinatu- 
ra dello schermo, per una riproduzione fo¬ 
tografica accurata e definita. 

Il sistema Polaroid Palette è uno stru¬ 
mento di lavoro per operatori di marke¬ 
ting, per ricercatori, per tutti coloro che 
necessitano di un adeguato supporto visi¬ 
vo alle loro presentazioni. 

Chiedete una dimostrazione al vo¬ 
stro rivenditore di fiducia e ai Distri¬ 
butori Specializzati Polaroid (indiriz¬ 
zi sulle Pagine Gialle). 


Per ulteriori informazioni spedite questo 
tagliando a: POLAROID (Italia) S.p.A. 
Divisione Prodotti Professionali 
Via Piave, 11 - Tel. 0332/470031 
21051 ARCISATE (Varese) 



Mittente _ 
Indirizzo 


IT\ 

.00 



Polaroid 


“Polaroid” è un marchio registrato della Polaroid Corporation, Cambridge, Mass., USA. Polaroid 1985. 






































Ovunque mi compri 
sono garantito 
un anno, ma solo 

la SALS INFORMATICA 

mi assiste gratuitamente 
a casa". 


L'offerta è valida per 
tutti i sistemi Apple 
venduti dalla 
SALS INFORMATICA, 
a Cenova, a partire 
dal 31 marzo 1985. 
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